


NUMÉRO 10e DÉCEMBRE 1983 e PRIX 40 F 


| 
4 


La communication avec l’Apple 

| Input généralisé de tableaux 
h. Caractères géants à l’imprimante 

F MATGRAPKH : votre routine graphique 








. ISSN : 0294-6068 





UTIILISATIONS DE L'ORDINATEUR 





LE BASI 
ET L'ÉCOLE 


À PROCA MAI IORE HABIIC 





ai 
ne De” 


bo 


DES LIVRES ET LEUR DISQUETTE 
POUR VOTRE APPLE II 


a 





GC 


= Photo 


$ 
: 





ms n°10 


Sommaire Page 









































Langage * 


RAIVEREAU - 
et À 








CR RO PRE 



































Editorial par Hervé Thiriez 5 

MATGRAPH : votre routine graphique par P. et G. Mathieu 7 B-A 

Créez des commandes automatiques par Gérard Michel 11 B-A 

Gestion de compte bancaire par Dominique Compère 13 B 

Compression d'images HGR par Philippe Krepper 19 B-A 

Accès direct aux disquettes par Gérard Michel 20 B-A 

Dessins avec une planche à clous par Nicolas Montsarrat 21 P 

Edition des fichiers BASIC par Gérard Hisleur 28 B ris 
CX Système à l’essai par François Renault 29 / F 
Suppression de fin de programme par Gérard Michel 33 B-A Ê: 
Aide au graphique HGR par Jean-François Groussin 35 B-A Fe 
La communication avec l’Apple par René Fakir al / Fe 
Caractères géants à l’imprimante par J.-F. Groussin 45 B Ë 
Chargement automatique de l’Integer par J.-Michel Clin 47 (A) fa 
Décisionnel Graphique à l’essai par Guy Lapautre 49 / ca 
Input généralisé de tableaux par Gérard Michel 53 B-A 

Calendrier perpétuel en Visicalc par Olivier Herz 61 / 

Conversion de Big Mac vers Lisa 2.5 par André Airy 63 A 

MUSIC par Joël Delannoy 65 / 

Micro-informations par Jean-François Duvivier 67 / 

Bibliographie par Alexandre Duback 70 / 

Courrier des lecteurs par Olivier Herz 71 / 

Courrier des clubs 73 / 

Trucs et astuces 23-25-62-70 / 








* Langage : B(asic) - A(ssembleur) - P{ascal). (B) signifie : relatif au BASIC. 
** Niveau : D(ébutant) - M{oyen) - P{rofessionnel) - T(ous). 
P-T signifie : programme utilisable par les débutants, mais dont la compréhension est de niveau Professionnel”. 


Les annonceurs 

ACER : p. 4 — B.F.L : p. 44 - Service Calvados : p. 38-39-40 - COMEICO : p. 60 — Contrôle X : p. 43 - JCR : p. 75-76 — Logma : 
p. 52 — M.B.D.C. : p. 31 - M.IL.C. : p. 73 - MICRO-PERIPH : p. 6 - MILOG : p. 55 — Minigraphe : p. 48 — L'Ordinateur Indivi- 
duel : p. 32 — P.S.L Diffusion : p. 2 - SATELCOM : p. 18 - TELECOMPO : p. 66 - Totale Formation : p. 10. 


Éditions MEUV - 49, rue Lamartine - 78000 Versailles 


Directeur de la publication : Hervé Thiriez. Imprimerie Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : 4° trimestre 1983. 


Rd Dur de lee dt 


Pom's n° 10 : 3 








RENDEZ VOTRE APPLE * ENCORE PLUS” 
Cartes et accessoires additionnels compatibles APPLE II & 


CARTE D'UNITE CENTRALE 
double processeur 6808 et Z 80. 64 K 


RAM 
j ÿ =: 
à \ \ 2 (sans logiciel) 


est 8380° 
7 slots d'extensions. Fonctionne 


sous CPIM DOS 3,3 voir carte de programmation 


Entièrement équipée 


Fonctionne sous CP/M 
Utilisation de tout logiciel sous CP/M 
D Entièrement équipée 


CARTE 80 COLONNES 
{ “ C2 F-| 1. us 1 


uninniMuis 


80 car. x 24 lignes. Résolution 7 x 9. Compatible avec 
là plupart des traitements de texte BASIC. 


PASCAL, CPIM, MODEM 


Entièrement équipe 


Pour reproduction du 
D graphisme, connectable 
à la place du Joy-stick 


| MONITEURS 


ZENITH 


12" vert 


_ OCEANIC 


14" couleur 


* APPLE est une marque déposée et appartient à APPLE COMPUTER S.A. 


CONDITIONS GENERALES DE VENTES PAR CORRESPONDANCE 
Pour éviter les frais de contre-remboursement, nous vous conseillons de régler vos 
commandes intégralement {y compris frais de port}. FORFAIT DE PORT : 25 F 


DRIVE COMPACT 3 POUCES POUR APPLE 


MD 3 «HITACHI» 


Disque MD 3 


Le disque MD 3 entièrement 
compatible APPLE est de petite taille 
mais de grande capacité. Le disque 
compact 3” bénéficie des dernières 
innovations de la haute technologie 


HITACHI. 


Originalité : son MEDIA protégé et 
rigide offre les garanties de FACILITÉ, 
FIABILITÉ, ROBUSTESSE 


Programmation lecture/copie 
Chargement de programme directement sur la ROM. 
Entièrement équipée 


CARTE D'EXTENSION 
188 K RAM 


Emulation disk-drive 
sous DOS, PASCAL ou CP/M 
Entièrement équipée 


CARTE DE CONNECTION 
SERIE / RS 838 C 


Entièrement équipée 


CARTE INTERFACE 
FLOPPY-DRIVE 


Permet la connection d'un lecteur de disques. 


Entièrement équipée 


MONITEUR COULEUR 
RTC 


Décrit dans Radio-Plans n° 429 
Tube A37 590 Y 

Châssis VCC 90 

électronique et 

mécanique 

COMPLET 


Prix. 


Spécifications MD 3 


- Nombre de pistes : 80. 
- Densité : 100 TPI. 


COMPLET 
- Capacité DD : 500 K octets. AVEC CONTROLEUR 


- Temps d'accès moyen : 55 ms. 


- Poids : 0,8 kg. 


- Temps piste à piste : 3 ms. 
- Vitesse de rotation : 300 T/mn. 
- Dimension : 90 x 40 x 150. 


- Alimentation : 12 V, 0,5 A - 5 V, 


0,5 A. : 
pouces HITACHI. 


Pour extension du 48 K RAM en 64 K. Compatible 


FORTRAN PASCAL, LISP, BASIC 

3 F 
Entièrement équipée 
CARTES D'INTERFACAGE 


Carte RVB (Pour moniteur couleur) 8’ 
Carte «SPEETCH» en anglais 698” 
Carte musicale pour synthétiseur de son 885" 
Carte horloge 785 
Carte vidéo MODEM 8880’ 
VENTILATEUR «FAN» 498” 
ALIMENTATION 220 v sa. 7997 


CARTE INTERFACE 
IMPRIMANTE 


JANITERRE 


Pour toutes marques sortie CENTRONIC’S - Buffer 


Livrée équipée en 16 K 
(extension jusqu'à 64 K) 


CLAVIER ASC II 


68 touches. Alphanumérique 
Majuscules, minuscules, décimales 


COFFRET 


Pour carte de base 
et pavé numérique 


JOY-STICK 


le 
EL 


Lee rte 


équipé de 2 trimes 


pour recherche du point zéro 


ACER MICRO 


42, rue de Chabrol, 75010 Paris. 


Tél. 770.28.31. 


- Media : disquette compacte 3 


disquette 
l'unité 85 F 


FLOPPY DRIVE 6” 


Sans contrôleur 2699" : 
Los 
avec contrôleur | 34597 


DISQUETTES POUR FLOPPY 
5° SF-SD, par 10 l'unité. ss 

SF-SD, 16 secteurs. 

SF-0D, 10 secteurs 

DF-DD, 96 TPI.. 

DF-D0, 16 secteu 


IMPRIMANTE SEIKOSHA 
GRAPHIQUE COMPACTE 
és. GP100A 


erouo 8R 80° 


Interface parallèle en standard. 80 car.sligne. 50 car. 
sec. Impression en simple ou double largeur Papier 
normal. Entraînement par tracteurs ajustables 


INTERFACES POUR GP100 A 


APPLE Il ou IE avec câble 9907 
Série RS 232 9907 
ZX 81 8807 


Câbles pour oRIC 8807 


TO7 880" 
EN KIT 


180° 
Complet avec notice 
Ds men eus 


SANYO &807 
HC25 8807 


EFFACEUR D'EPROM 


BON DE COMMANDE 
Veuillez me faire parvenir 
le matériel suivant 





Désignation 








Règlement CCP D C.B. D 








Editorial 


Le monde de la micro-informatique subit en ce moment la révolution que de nombreux experts avaient 
annoncée ces derniers mois : la disparition de plusieurs fabricants. Osborne à déposé son bilan, Texas 
Instruments s’est retiré du marché des ordinateurs familiaux, Atari a des problèmes, Victor (Sirius) souf- 
fre, et on ne sait même pas ce qu'il adviendra de Commodore, pourtant pratiquement le seul au- 
jourd'hui à gagner encore de l'argent dans le marché de l'ordinateur familial Quant aux actions d'Ap- 
ple, elles ont baissé des deux tiers entre juin et septembre 1983... Il reste IBM, qui marche très fort pour 
des raisons multiples que nous n'avons pas le temps de détailler ici, et les Japonais dont on peut à juste 
titre craindre le déferlement sur nos marchés dans les mois à venir, maintenant qu'ils se sont assuré le 
concours des meilleures sociétés de logiciel, telles que Microsoft. 


Enfin, pour ma part, travaillant personnellement sur Apple et IBM PC, je peux vous garantir que je ne 
dispose, sur mon PC, que d’une infime fraction des logiciels dont je bénéficie sur l'Apple. Le temps de 
l'Apple n’est donc pas encore révolu : je viens d’ailleurs d'acquérir une carte Quadlink qui me permet 
de faire fonctionner l'IBM PC comme un Apple Plus 40 colonnes. Hélas, cette carte n'autorise pas 
encore la simulation du //e ou de cartes 80 colonnes. Mais cela viendra certainement... 


Dans ce numéro, René Fakir (eh oui, c'est un pseudonyme, mais il s'agit de quelqu'un qui contribue 
pour la première fois à Pom's !) vous parle de communication, sujet que nous avions promis de couvrir. 
Jean-François Groussin vous propose un programme d'aide au dessin HGR et un programme 
d'écriture de caractères géants sur imprimante. Jean-Michel Clin vous donne un “patch” du DOS qui 
facilite la manipulation des programmes en BASIC Integer. Dominique Compère vous offre pour sa 
part un programme de gestion de compte bancaire dont l'intérêt peut être à la fois "utilitaire" et péda- 
gogique. 


Les amateurs du Pascal trouveront dans ce numéro un programme original de création graphique 
réalisé par Nicolas Montsarrat. Toujours dans le domaine graphique, Philippe et Guy Mathieu 
présentent un ensemble de routines en Applesoft permettant la représentation de séries de valeurs 
numériques, tandis que Philippe Krepper vous donne un moyen de réduire la place occupée sur 
disquette par les images HGR. 


André Airy met à la disposition des possesseurs de LISA un programme qui leur permettra de conver- 
tir les fichiers BIG MAC en programmes-sources utilisables par leur assembleur favori. Gérard Michel 
présente une routine d’INPÜT permettant la saisie contrôlée de tableaux de variables. Olivier Herz, 
toujours astucieux, vous propose de réaliser un calendrier perpétuel avec Visicalc. 


Dans le cadre de notre rubrique de bancs d'essai, François Renault analyse le nouveau CX Système 
et Guy Lapautre épluche le fonctionnement de Décisionnel Graphique. Jean-François Duvivier pré- 
sente avec sa compétence habituelle les Micro-informations et Olivier Herz assure, pour la dernière 
fois dans l’année à venir, le Courrier des Lecteurs. Enfin, ce qui ne gâche rien, notre rubrique Trucs et 
Astuces est en croissance régulière. 


Nous rappelons aux lecteurs que, parfois, les disquettes leur parviennent ‘écrasées"” par les PTT (c'est 
un autre problème que celui de la disquette ‘pliée, qui, lui, se repère de suite). Pour savoir si une 
disquette a subi pareil traitement, essayez de la faire tourner à la main ; toute résistance anormale est de 
ce point de vue significative et la disquette, ne pouvant être entraînée par le lecteur, risque de présenter 
à l'usage les caractéristiques d’une disquette vierge (pas de boot”, pas de CATALOG...) Dans ce cas, 
avant de nous retourner la disquette concernée, essayez de découper l'enveloppe en carton pour libérer 
le disque et en permettre la lecture ; cette manipulation permet presque toujours de récupérer les don- 
nées qui, elles, ne sont pas sensibles aux surcharges pondérales ! Nous essayons de protéger nos dis- 
quettes et de faire appel aux bons soins des postiers (tous nos envois portent la mention Ne pas plier, 
ni écraser S.V.P."), et cela nous pose bien évidemment problème de devoir remplacer des produits 
expédiés en parfait état mais détériorés pendant le transport. Il serait difficile, pour vous comme pour 
nous, de payer un emballage plus cher que son contenu, uniquement pour limiter les conséquences 
d’un service dont la qualité n’est pas toujours ce qu'elle devrait être... 


Toujours au sujet des PTT, nous n'avons rien pu faire face aux grèves récentes que nous sommes bien 
forcés de subir. Certains ont reçu leur n° 9 très tard, d'autres pas encore. Nous n'y pouvons malheureu- 
sement rien ; par contre, si un lecteur abonné n'a pas encore reçu son numéro ou sa disquette, nous 
sommes prêts à lui ré-envoyer ce qui aurait été perdu par les PTT à 50 % du prix. 


Nous n'avons pas encore décidé de la date à laquelle Pom's deviendra bimestriel, mais nous vous 
confirmons que cela arrivera en cours d'année 84. Bonne lecture et à bientôt ! 


Hervé Thiriez 


Ont collaboré à ce numéro : André Airy - Jean-Michel Clin - Dominique Compère - Joël Delannoy - Jean-François Duvivier - René Fakir 
- Jean-François Groussin - Olivier Herz - Gérard Hisleur - Philippe Krepper - Guy Lapautre - Guy Mathieu - Philippe Mathieu - Gérard 
Michel - Nicolas Montsarrat - François Renault - Hervé Thiriez. Rédacteurs : Gérard Michel - Alexandre Avrane — Dessins : Laurent Bidot. 
Directeur de la publication - rédacteur en chef : Hervé Thiriez - Siège social et abonnements : Editions MEV - 49, rue Lamartine - 
78000 Versailles - Rédaction et courrier des lecteurs : 59, bd de Glatigny - 78000 Versailles - Tél. : (3) 951.24.43 

Régie publicitaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. : (1) 238.66.10. 

Diffusion auprès des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Mamne Cedex. 

Composition : Télécompo - 13-15, avenue du Petit Parc - 94300 Vincennes - Tél. : 328.18.63. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 
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MICRO-PERIPH M 
ouvre les portes de votre @spple Ir 


NOUVEAU 


LECTEURS DE DISQUES RANA CINQ POUCES 

Il en existe trois modèles qui sont tous compatibles avec Apple en DOS 

3.3, Pascal et CP/M. 

Elite | capacité 163 K 

Elite Il capacité 326 K 

Elite 11! capacité 652 K 

Ces lecteurs de disques, fabriqués aux États-Unis, sont livrés avec une 

membrane permettant de protéger les disques contre l'écriture. Ils fonc- 

tionnent parfaitement avec les contrôleurs de disques Apple. Ces lecteurs 

7 fait leur preuves aux États-Unis et sont livrés avec une garantie de 
mois. 


NOUVEAU 


WILDCARD (1 400 F T.T.C) 

Cette carte équipée d'un bouton poussoir vous permet d'arrêter l'exécu- 
tion d'un programme et de décharger l'état de mémoire sur un disque. Ce 
qui veut dire que vous pouvez réaliser des copies de programmes qui ne 
sont plus protégées ou sauvegarder un programme de jeu à un niveau 
choisi. Grâce à ces logiciels utilitaires, cette carte est de loin la plus puis- 
sante de ce genre. La carte est livrée avec un manuel détaillé en français. 


LES CARTES « PILOTS » 


U-TERM (1 490 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur l'écran vous permet d'avoir 
deux jeux de caractères à la fois qui sont co-résidents dans la mémoire 
vive et la mémoire morte de la carte. Par exemple, les caractères français 
majuscules et minuscules ainsi que les caractères anglo-saxons. Elle a 
une très grande gamme de compatibilité : APPLESOFT, PASCAL, CPIM, 
APPLEWRITER I, etc. (Photo 2). 

U:Z80 (1 150 F T.T.C.) : son point fort est la vitesse : 4 MHz. Compatible avec 
tous les logiciels CP/M où de Z80 (Photo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carte langage entièrement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus cher ? 
U-S232 (1 040 F T.T.C.) : une carte de série, vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctionner une imprimante à sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM {Photo 9). 


LES PROMOTIONS 


Carte ACCELERATOR || 4 350 F T.T.C. Interface graphique 1 050 
Moniteur Zenith Vert 1120FT.T.C. Ultraterm 5 100 
Moniteur Zenith Ambre 1230 F T.T.C. Synthétiseur vocal 1 390 
JOYSTICK 380 F T.T.C. Vision 80 
DISQUETTES grande marque - Le moins cher à Paris. 
INTERFACE et BUFFER graphique pour Epson, etc.-16K 

64K 
LOCKSMITH système de sauvegarde de logiciels 
VENTILATEUR très silencieux - garanti 5 ans 
ASSEMBLEUR ‘‘Merlin’” (South Western Data Sys) 
APPLICARD carte CP/M 6 MHz avec 64 K RAM 
SAYBROOK carte 68000 12 MHz avec UCSD p. sys. etc 
C.I.A. le dernier né dans les copieurs - très puissant 
Contrôleur de disques Apple Il +, Je 
Partageur imprimante parallèle (3 micros, 1 imprim.) 
SPEED STAR - compilateur de programmes en Basic 
Contrôleur de disques pour 4 drives 950 
STRUCTURED BASIC un nouveau basic ressemblant à Pascal 1 060 
LECTEURS et GÉNÉRATEURS de code à barres 


Ouvert du mardi au samedi : 10h -12het 14h -18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 


PROMOTION DE LECTEURS DE DISQUES — 2 550 F T.T.C.) 

* 100 % compatible avec Apple Il + et fe 

+ Mécanique Siemens Corp. avec système vis sans fin 

+ Électronique fabriquée en Grande-Bretagne 

* Entièrement testé et garanti 12 mois 

* Opération très silencieuse et précise 

{Pour les ventes par correspondance, veuillez ajouter 40 F de port.) 


OUVEAU 


PROGRAMMEUR D'EPROMS (1 400 F T.T.C.). La carte se branche dans un 
Slot de l'Apple Il et permet de programmer directement les EPROMS (2758, 
2716, 2732 et 2764). Un logiciel de gestion du programmeur se trouve sur la 
carte de mémoire morte. Une carte existe également pour adapter les 
EPROMS programmés sur l'Apple 11 (630 F T.T.C.). 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 4). VERSA RAM émulateur de disque (690 F 
T.T.C.). 


CARTES SCIENTIFIQUES 


U-AID (5 880 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 voies (Photo 6). 

Carte AJD 8 bits (1 400 F T.T.C.), 1 voie (470 F T.T.C) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 voie (450 F T.T.C.) 

U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C.), 32 lignes entrée-sortie avec temporisateur et buffer 
U-TIM (1 120 F T.T.C.), temporisateur 

U-2 PORT (1 960 F T.T.C.) : 2 portes RS 232 sur la même carte extensible 
jusqu'à 8 portes{(Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits interne (Photo 3). 

Nous avons plusieurs autres cartes qui ne sont pas mentionnées ici; 
renseignez-vous 


NOUVEAU 


RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 800 F T.T.C.) 

Si vous souhaitez utiliser votre VISICALC avec : 

* 136 K de mémoire + chargement d'un tableau complet en 20 secondes 
+ 80 colonnes sur l'écran (logiciel compatible avec 4 différentes cartes 
80 colonnes) 

+ Largeur de colonnes variable individuellement 

+ Curseur programmable 

* Beaucoup d'autres améliorations très nombreuses 

(Ce logiciel qui est également compatible avec les cartes Saturn est dispo- 
nible séparément (1 570 F T.T.C.). La carte RAMEX 128 K est disponible 
aussi séparément pour 4 600 F T.T.C., y compris le logiciel SOLIDOS.) 


PROMOTIONS IMPRIMANTES 

EPSON FX 80 5800FT.T.C. EPSON RX 80 4 090 F T.T.C. 

EPSON RX 80 FIT 4210FT.T.C. EPSON MX 100 6250 F T.T.C. 

MANNESMAN Spirit 80  3750F T.T.C. (80 cps, matrice 8x9, 142 car. par 
ligne, impression graphique). 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus amples 
renseignements, téléphonez à MICRO-PÉRIPH (321.53.16). Si vous ne pouvez 
vous déplacer, téléphonez-nous pour connaître le revendeur le plus proche de 
Chez vous ou complétez le bon de commande ci-dessous. 

TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


A découper et envoyer à : 
MICRO-PÉRIPH, 62, rue Ducouédic - 75014 Paris - Tél. : 321.53.16 
Je désire recevoir rapidement, sous pli recommandé : 


QUANTITÉ DÉSIGNATION TOTALT.T.C. 


Total 
Frais de port recommmandé 


Ci-joint un chèque/C.C.P. de F : 








MATGRAPH : votre routine graphique 


Il existe de très nombreux program- 
mes permettant de représenter gra- 
phiquement des séries de valeurs nu- 
mériques. Certains, tels APPLEPLOT 
ou VISIPLOT, se présentent indé- 
pendamment de tout programme de 
traitement. D’autres sont normale- 
ment associés à des programmes 
divers : PFS-GRAPH fait partie de la 
série des PFS, DGRAPH est lié à 
DBASE Il, etc. D’autres enfin sont 
écrits sur mesure pour un problème 
donné, par exemple une représenta- 
tion de planning, de statistiques, ou 
encore de notes de musique... 


Sans être très complexes à écrire, ces 
programmes doivent toutefois appor- 
ter une solution satisfaisante à un 
certain nombre de problèmes spécifi- 
ques du graphique: détermination 
d'échelles convenables, tracé dans 
un cadre standard, et ce quelles que 
soient les valeurs à représenter, pos- 
sibilité de titrage et inscriptions diver- 
ses sur écran graphique, sortie sur 
imprimante. 


MATGRAPH (avec MAT comme Ma- 
thieu et non comme Mathématique !) 
est un sous-programme écrit en Ap- 
plesoft destiné à être intégré dans 
vos propres programmes de traite- 
ment. Vous pourrez alors, moyen- 
nant quelques précautions élémentai- 
res, représenter sous forme gra- 
phique les séries de valeurs calculées 
par vos programmes (jusqu'à 200 
valeurs par série). 


L’éventail des types de graphes qui 
vous sont proposés comprend le 
tracé d’une ligne, le tracé de symbo- 
les graphiques en chaque point 
(petits carrés), l'association des deux, 
et le tracé de diagrammes à barres. 
Les abscisses sont graduées selon le 
nombre de valeurs contenues dans la 
série et les ordonnées en nombres 
entiers associés à des puissances de 
10. Ainsi, une échelle allant de —3 à 
10 avec 10/\2 permet la représenta- 
tion de valeurs situées entre —300 et 
1000. 


Un fac-similé des diverses représenta- 
tions possibles est donné à la fin de 
l’article. On y verra que MATGRAPH 
permet également de titrer les graphi- 
ques obtenus. On dispose enfin de 
deux options de sortie: impression 
du graphe ou enregistrement sur dis- 
quette. En ce qui concerne l’impres- 
sion, un emplacement est réservé 
pour que vous puissiez, si ce n’est 
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déjà fait, introduire les paramètres 
spécifiques de la commande graphi- 
que de votre imprimante. 


Utilisation 


Dès l'appel du sous-programme, 
l'écran passe. en mode graphique 
(HGR) et deux lignes de commande 
apparaissent en bas de l'écran. La 
première propose les quatre types de 
représentation possibles, la seconde 
permet de mettre en oeuvre les op- 
tions de titrage, d'impression et de 
sauvegarde sur disque, ou de quitter 
le sous-programme. 


On se déplace sur ces lignes en utili- 
sant les flèches à droite et à gauche, 
tandis que le RETURN active le 
choix effectué. Les options de la der- 
nière ligne ramènent provisoirement 
à un écran texte pour l'entrée de 


données avant le retour à l'écran 
graphique. 


Pour que vous puissiez faire un essai 
des différentes possibilités du pro- 
gramme afin de juger de l'intérêt de 
son intégration à vos traitements, 
nous vous le proposons sur la dis- 
quette d'accompagnement de ce nu- 
méro associé à un mini-programme 
qui tire au hasard une série de va- 
leurs. Il va sans dire que chacun peut 
remplacer ces quelques instructions 
par d’autres de son choix. 


Quelques secondes d’attente sont 
inévitables dès que l’on a choisi l’une 
des options graphiques avant que le 
graphe n'apparaisse à l'écran, ce 
délai est d'autant plus long que la 


série de données est importante. 


La fin d'exécution renvoie au pro- 
gramme principal. 


Conditions d'emploi 


L'utilisation de MATGRAPH réclame 
quelques précautions. 


Le disque-programme doit contenir 
le programme en langage-machine 
ALPHAHGR qui permet l'écriture sur 
écran graphique. Ce programme se 
loge de l'adresse 37000 à l'adresse 
38400 et doit donc être protégé par 
un HIMEM. 


A l'inverse, un LOMEM doit protéger 
la page graphique HGR contre les 
débordements intempestifs de varia- 
bles. 


Philippe et Guy Mathieu 


De très nombreuses variables, indi- 
cées ou non, sont utilisées. Pour évi- 
ter toute confusion, la plupart d’entre 
elles ont pour premier caractère la 
lettre G (il y a aussi des variables ba- 
nales d'indices de boucles et des va- 
riables classiques de coordonnées en 
X et Y). Une bonne précaution 
consiste donc à éviter l'emploi de va- 
riables dont le nom commence par G 
dans le programme appelant. 


Il est en revanche indispensable de 
donner le nom GP$ à la série de va- 
leurs à représenter avant l'appel du 
sous-programme. Ce tableau doit 
être préalablement dimensionné à 
200. Il faut également préciser dans 
une variable GNF le nombre effectif 
de valeurs de la série (cf. l'exemple 
donné dans la liste ci-après). 


N'oubliez pas par ailleurs d'introduire 
les paramètres relatifs à votre impri- 
mante à leur emplacement réservé 


(voir ci-dessous). 


Commentaire du listing 


Les instructions de protection 
(HIMEM et LOMEM) et de dimen- 
sionnement du tableau GP$ sont 
rappelées pour mémoire en tête du 
programme. 


Viennent ensuite quelques instruc- 
tions qui ne sont utiles que pour le 
programme de démonstration (lignes 
1000 et suivantes). 


Le sous-programme MATGRAPH 
proprement dit commence à l’instruc- 
tion 60000 (numéro élevé choisi 
pour éviter les interférences avec vos 
propres instructions, mais rien ne 
s'oppose à une renumérotation du 
sous-programme si vous l’estimez né- 
cessaire). Il comporte 5 parties. 


La première, à partir de 60000, ini- 
tialise les variables et dimensionne 
celles qui doivent l'être. 
ATTENTION : le premier appel à 
MATGRAPH doit se faire par un 
GOSUB 60000, mais les suivants, à 
l'intérieur d'un même programme, 
doivent résulter d'un GOSUB 60050, 
sinon vous obtiendrez une erreur de 
redimensionnement et, éventuelle- 
ment, une erreur de lecture dans les 
DATA. 

Les instructions 60080 et suivantes 
sont réservées au paramétrage de 
votre imprimante. 


SHARE 


ETTANETTERETPTEE FES F 
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La seconde partie, à partir de 60100, 
gère les options de titrage, impres- 
sion, sauvegarde et fin du sous-pro- 
gramme. 


La troisième, à partir de 60200, per- 
met le choix parmi les options du 
menu et retourne une valeur II cor- 
respondant à l'option choisie. 


La quatrième, à partir de 60250, est 
destinée à l'écriture sur écran graphi- 
que. C’est elle qui appelle par un 


CALL le programme en langage ma- 
chine ALPHAHGR. 


La cinquième enfin, à partir de 
60300, constitue le programme de 
tracé graphique proprement dit, avec 
les 4 options qui ont déjà été évo- 
quées. Le choix est fait grâce à une 
variable GO calculée à partir de la 
variable intermédiaire I I. 


Remarque générale 


Pour que le sous-programme MAT- 
GRAPH soit relativement facile à in- 


tégrer dans des programmes d’appli- 
cation, il était indispensable d'en 
réduire au maximum la longueur. De 
ce fait, de nombreux contrôles utiles 
ont été abandonnés. Il est fort possi- 
ble, voire probable, que dans certai- 
nes circonstances particulières l’ab- 
sence d’un contrôle entraîne des 
perturbations inattendues. Si pareille 
chose devait vous advenir, les au- 
teurs sollicitent par avance votre in- 
dulgence et se fient à votre compé- 
tence pour combler le vide laissé par 
leur souci de concision. 


A ————————————————"——"—"—————"——————"—"——]— 


Programme MATGRAPH 


1  HIMEM: 346999 
2 LOMEM: 17000 
3 DIM GPC200) 


60122 


VTAB 5: 


!STOF" 
INPUT GT$: IF GT$ = "" TH 


EN PRINT G#$:6G#$: GOTO 401270 


60124 


IF LEN CGT$) > 20 THEN PRINT G# 
5: PRINT G#: 
— 14:HT = XH + 7:L$ = GT$: 


GOTO 60120 


10 RM == 60126 UT = XU 
20 REM REPRESENTATION GRAPHIQUE GOSUE 60250 
30 REM DE SERIES DE VALEURS 60128 GOTO 60110 
40 REM (APPLESOFT) 60140 VUTAE 3 
M0:  REM = one ns 60142 PRINT "METTEZ L'IMPRIMANTE EN ROU 
1000 REM PROGRAMME DE DEMONSTRATION TE" 
1010 GN = 30 60144 GET Z$: PRINT 
1020 FOR I = 1 TO GN 60146 PRINT D$"PR#1" 
1030 GPCI)D = RND (1) * 100 - 33 60148 PRINT G$ 
1040 NEXT 60150 PRINT D$"PFR#HG" 
1050 GOSUE 60000 60152 GOTO 60110 
1060 END é0160 UTAB 3: PRINT "SOUS QUEL NOM UOUL 
60000 REM MATGRAPH EZ-VOUS " 
60002 REM DATA ET DIMENSIONS 60142 INPUT "SAUVER CE FICHIER? 
60004 DIM GG(200>,GH(Z00) ":6S$ 
60006 DATA LIGNE,SYMBOLES,LIGN+SYMB,BAR | é01é4 UTAE INPUT "SUR QUEL LECTEUR D 
RES ,TITRER, IMPRIMER, SAUVER, QUITTE E DISQUES? ":G2$ 
R éüléé PRINT D$"ESAVE":;:66#:",.A#2000 ,L#20 
60008 FOR 1 = © TO 7: READ MENU#(I1): NE 00,D":GZz$ 
XT é0ü168 GOTO éc110 
60050 REM PARAMETRES D’INITIALISATION 60200 REM MENU 
60052 HOME : HGR 60202 UT = Z1:HT = 1 
60054 D$ = CHRS (4):G$ = CHR$ (7):G$ = | 60204 II = CUT - 21) x 4 + (HT - 1 / 10 
CHR$ (17) 60206 UTAB UT: HTAB HT: INVERSE : PRINT 
60056 G2 = .4342ç4 MENUS(I1) 
60058 X0 = 50:YO = 134:XH INT (XO / 7 | 60208 GET 2Z#:7 = ASC (74) 
D:XU = INT (YO / 6) 60210 IF Z 13 THEN NORMAL : UTAB UT: 
60060 PRINT D$"BLOADALPHAHGR,A437000" HTAB HT: PRINT MENUS{II1): RETURN 
60080 REM SUITE RESERVEE AUX PARAMETRES 
D’ IMPRIMANTE 60212 IF Z < } & AND Z € > 21 THEN P 
40100 REM COMMANDE RINT G$:: PRINT Gt: GOTO éüzüé 
60102 UT = 21:HT = 1: FOR 1 = O0 TO 3: UT | 60214 UTAB UT: HTAB HT: NORMAL : PRINT 
AB UT: HTAB I * 10 1: PRINT MEN MENUS(I1) 
U&C12: NEXT : FOR 1 = O0 TO 3: UTA | 60216 IF Z = 8 THEN HT = HT - 10: IF HT 
B UT + 1: HTAE I * 10 + 1: PRINT € 1 THEN HT = 31iUT = UT = 15 IF 
MENUS(I + 4): NEXT UT < 21 THEN UT = 22 
60110 POKE - 16304,0: GOSUB 60202: NOR | 60218 IF 2 = 21 THEN HT = HT + 10: IF H 
MAL : VTAB 3: FOR I 1 TO 5: PRI T > 31 THEN HT = 1:UT = UT # 1: I 
NT " F UT > 22 THEN UT = 21 
"; NEXT 60220 GOTO 60204 
60112 IF II = 7 THEN NORMAL : TEXT : R | 60250 REM  A:ECRIT. HR 
ETURN 60252 L = LEN (L#) 
60114 IF II < 4 THEN GO = II + 1: GOSUB | 60254 FOR JJ = 1 TO L: POKE 27799 # JJ, 
éG300: GOTO éû11o ASC € MID$ (L$,JJ,1)): NEXT 
60116 POKE - 16303,0 60256 POKE 37491,UT: POKE 37492,HT = 1: 
60118 ON II - 3 GOTO é0120,60140,601460 POKE 37490,L 
60120 VTAB 3: PRINT "TITRE À DONNER AU 60258 CALL 37518: RETURN 
GRAPH ? (20 CARACTE | 60300 REM TRACE 
RES MAXI) 60307 GA = GP(12:G2 = GP(1) 
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Attention ! : 

MATGRAPH, comme d'autres programmes d’ailleurs, est 
totalement allergique au PLE. Vous pourrez facilement le 
vérifier si vous avez le PLE. 


Tous ces graphiques ont été créés à l’aide du programme 
MATGRAPH en modifiant éventuellement les instructions 
entre 50 et 60 000. 





60304 FOR I = 1 TO GN TO X + 1,Y + 1 TO X —- 1,Y + 1 TO 


60306 IF GA > GP(I) THEN GA = GP(I) Ko LT © 1 
60308 IF GP(I) > GZ THEN GZ = GP(1) 60378 IF GO = 2 THEN 60390 
60310 NEXT 60380 IF I > 1 THEN HPLOT XX,YY TO X,Y 
60312 GX = ABS (G62Z):GY = ABS (GA) 60382 XX = X:YY = Y 
60314 GM = GX: IF GY > GX THEN GM = GY 60384 IF GO < > 4 THEN 60390 
60316 GL = INT { LOG (GM) x G2) 60386 II = 4: IF GN > 10 THEN II = 2: IF 
60318 GG = GZ / (10 * GL) GN > 25 THEN II = 1: IF GN > 50 
60320 GY = INT (G0): IF GY < > 60 THEN THEN II = 0 

GY = GY + 1 60388 HPLOT X - II1,YO TO X - II,Y TO x 
60322 GZ = GY *x (10 * GL) + II,Y TO X + II1,Y0O 
60324 Gi = GA / {10 * GL) 60390 NEXT 
60326 GB = INT (G1) 60392 RETURN 
60328 GÂ = GB * (10 * GL) 60410 DIM GG(200) ,GH(200) 
60330 GI = GY - 6B:6G = 100 / (GZ - GA) 





60332 FOR 1 = 1 TO GN à : 
11 faut entrer le code objet ci-dessous 
60334 GG(1) GPCI) — GA) * GG en moniteur, puis le sauvegarder avec : 


= ( 
60336 GH(I) = CI - 1) x 200 / CGN - 1) BSAVE ALPHAHGR,437000 ,L1400 


60338 NEXT Les zones $9088-9281 et $9373-#9600 


 . ue 38,Y0 - 126 TO XO - 38 sont des tables que MATGRAPH manipule. 


YO + 20 TO XO + 210,Y0 + 20 TO X ALPHAHGR 
2 FESTD A0 Re | de. Zone $928E-$9372 

M 60344 HPLOT X0 - #,yo - 100 To xo - 7,7 | ?2?0- 92 4A 4A 4A 8D 7A 92 0A 

+ 0 - 100 TO X0 - 7,v0 + 1 ro xo + | 7298- 0A 0A 85 ED AD 72 92 38 

es og ’ 92A0- ES ED 85 EC A9 20 8D 79 

NU 60346 FOR I = 0 TO GI: HPLOT X0 - 9,vo | ?2A8- ?2 AS ED 0A CA 18 65 ED 

F4 D PS A 92B0- 8D 78 92 A5 EC 4dA 85 EC 

NO 60348 IF GY * GB < 0 THEN HPLOT xo - 7 | ?2B8- AD 78 92 90 02 69 7F 8D 

E YO + GB * 100 / GI TO XO + 205.7 | 7200- 78 92 18 AS EC 6D 79 92 

ë a op *! | 92c8- 8D 79 92 18 AD 74 92 6b 

À 0350 Lé = STRS CGYD2HT = XH - sur = x | 22007 78 bo dun 

+ V — 12: GOSUB 60250 


2 = D : ; | 92E0- 8D 78 92 A2 00 A9 00 85 
M 60352 L$ = STRS (GB):UT = XV: GosuB 602 | SEL FA AD 75 92 85 EC AD ?7 


" 92F0- 
M 60354 L$ = "10°" + STRS (GL):HT = XH:UT 07 92 85 ED AC 78 ?2 B9 A8 
j 92F8- 93 38 E9 20 8D 7A 92 e5 
= XV - 13: GOSUB 60250 
60356 II = i: IF GN > 10 THEN II P300— F? 06 F? 26 FA 06 F? 26 
9308- FA 06 F9 26 FA 38 A5 F9 
GN > 50 THEN II = 10 
9310- ED 7A 92 85 F9 A5 FA E9 
60358 FOR I = G TO GN STEP 11 
60360 HPLOT XO + I * 200 / GN.YO + 4 75187 00 85 FA 18 AD 75 92 65 
9320- F9 85 F9 AD 76 92 65 FA 


60362  NEXT 9328- 85 FA A9 00 A8 Bi F9 8D 


9: IF 





6364 A = XHIUT = XU + 2: GOSu 9330- 7A 92 A9 00 AB AD 7A 92 
de L . 2 . 9338- 91 EC E8 A9 04 18 65 ED 
60366 e FL CGND :HT = XH + 28: GOSU 9340- 85 ED A5 F9 69 01 85 F9 


9348- AS FA 69 00 85 FA 8A C9 
9350- 07 DO D7 18 AD 7B 92 69 
9358- 01 8D 7B 92 AD 77 92 69 
9360- 00 8D 77 92 EE 78 92 AD 
9368- 78 92 CD 72 92 FO 03 4C 
9370- E3 92 60 


60368 FOR I = 1 TG GN 
60370 X = GHCI) + XO:Y = YO - GG) 
| 60372 IF GO = 1 THEN 60380 
| 60374 IF GO = 4 THEN 60386 
60376 HPLOT X — 1,Y - 1 TO X + 1,Y - 1 


3 MACHINES 
POUR LE PRIX D’UNE SEULE 


UNE IMPRIMANTE 


Qualité courrier 


UNE MACHINE A ÉCRIRE 


Avec marguerites interchangeables CAR APPE 


UN TE RMINAL émission/réception 


Avec clavier français pour la rentrée des données VOTRE APPLE 


T.F. SYSTÈMES propose toute la gamme UNDERWOOD- 


OLIVETTI interfacée pour votre APPLE depuis l'UNDERWOOD TOTALE FORMATION 
3000 5000 F HT. avec interface jusqu'à l'UNDERWOOD 7500 T.F. SYSTEMES 
12000 F HIT. avec interface. 114, avenue Charles-de-Gaulle 92200 Neuilly -Tél. 745.62.73 
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Créez des commandes automatiques 


La petite routine en assembleur pré- 
sentée ici doit vous permettre, lors- 
que vous travaillez en mode ‘’immé- 
diat”, d'exécuter rapidement une 
série de commandes (telle que 
TEXT : HOME : POKE 33,33 : LIST) 
ou de générer des ‘’macro-instruc- 
tions” en BASIC lors de l'écriture 
d'un programme (par exemple D$= 
CHR$(4):D1$ = CHR$(13) + D$ : 
Ko D1$"OPEN FICHIER, S6, 
1”). 


Pour ce faire, on constitue une table 
de codes-commande (stockée de 
$9500 à $9600) comportant pour 
chacun d'eux : 


— un code sur 1 caractère (un carac- 
tère du clavier accepté par la fonc- 
tion ASC, sauf ESC) 


— une adresse sur 2 octets renvoyant 
au libellé de la commande corres- 
pondante, les libellés étant pour leur 
part stockés en dessous de $9500. 


Le programme en Applesoft CRE- 
COM a pour but la création de ces 
tables de codes et libellés. Il vous de- 
mandera ainsi successivement : 


— le code (un RETURN à vide si- 
gnale la fin de la procédure de saisie 
des tables) 


— le libellé (255 caractères au plus) 


— le statut de votre commande vis-à- 
vis du RETURN : un RETURN à la 
fin provoque l'exécution immédiate 
de la commande si elle est possible, 
alors que l'absence de RETURN 
vous permet de poursuivre l'entrée 
au clavier à la suite du libellé affiché. 


Vous pourriez par exemple créer le 
tableau suivant : 


1 CATALOGDI (et RETURN) 
2 CATALOGD2 (et RETURN) 


3 HOME:POKE 33,33:LIST sans RE- 
TURN, afin de spécifier le numéro de 
la ligne à lister. 


En fin de saisie, vous préciserez le 
nom sous lequel vous désirez que 
votre tableau soit sauvé sur disquette 
(COM pour l'exemple fourni sur la 
disquette d'accompagnement). Il est 
ainsi permis de constituer, sous des 
noms différents, plusieurs tableaux 
de commandes en fonction de leur 
utilisation (instructions ”’mode-immé- 
diat”, programmation …..). 

L'adresse de début des libellés affi- 
chée par CRECOM vous permettra 


de fixer le HIMEM avant de charger 
les commandes en mémoire. 


Gérard Michel 


Pour utiliser ensuite les commandes, 
il faut changer l'adresse de la routine 
d'entrée de caractères, afin de faire 
transiter” ceux-ci par la routine 
COM.OBJ qui débute en $300. Pour 
cela, chargez la routine par BLOAD 
COM.OBJ puis tapez POKE 56,0 : 
POKE 57,3 : CALL 1002. 


Vous pouvez maintenant charger 
votre tableau de commandes 
(BLOAD COM par exemple). Par la 
suite, si vous voulez changer de ta- 
bleau, il suffira de le lire par BLOAD. 


RESET remet les adresses à leurs va- 
leurs initiales (entrée standard). 


Pour appeler une commande, il faut 
taper CTRL-A, suivi du code corres- 
pondant. Si deux commandes ont le 
même code, la routine renverra la 
première qu'elle rencontre (la pre- 
mière créée). Si le code n'existe pas, 
la main vous est rendue et le pro- 
chain RETURN provoquera une 
SYNTAX ERROR. 


Enfin, si vous tapez ESC juste après 
CTRL:-A, la liste complète des codes 
et libellés sera affichée, avec interrup- 
tion du défilement par CTRL-S si né- 
cessaire et reprise de ce dernier par 
la frappe d'une touche quelconque. 





Programme CRECOM 


HEN Z2$ = "“": GOTO 41 


43 IF ASC (AS) = 8 THEN Z2$ = LEFTS (Z 
$, LEN (Z$) - 1): GOTO 41 
44 IF LEN (Z$S) = 255 THEN AS = CHRS ( 
8): PRINT AS$;: GOTO 43 
1 REM CREATION DE TABLES DE 45 2$ = 2$ + AS: GOTO 41 
2 REM COMMANDES AUTOMATIQUES 46 IF 2$ = “" THEN 40 
3 REM  CAPPLESOFT) 48 INPUT ‘RETURN À LA FIN ? “;R$S* IF RS 
4 REM sesssse2sezsszssssssszs=: € > ‘‘O'" AND RS < > ‘‘N'‘' THEN 48 
50 DC = DC - LEN (Z$S) - 1:HB = INT (DC 
5 HIMEM: 25000 | / 256) :LB = DC - 256 * HB: POKE 
10 I = 1:AC = 38144:DC = 38143 AC, ASC (CS) + 128: POKE AC + 1,L 
20 PRINT ‘COMMANDE NO “I: PRINT : INPUT B: POKE AC + 2,HB:AC = AC + 3 
“CODE COMMANDE : ";CS: IF CS = * 60 FOR J = 1 TO LEN (Z$):Z = ASC ( MI 
“ THEN 80 DS (2$,J,1)) + 128: POKE DC + J - 
30 IF LEN (CS) > 1 THEN 20 1,2: NEXT :F = 254: IF RS = ‘“O* 
35 REM N’UTILISEZ PAS LA ‘“->"* POUR REL: THEN F = 255 
IRE DES CARACTERES, MAIS RETAPEZ 70 POKE DC + J - 1,F:1 = I + 1: IF I < 
LES. LA ‘“<-" EST AUTORISEE. = 8S THEN 20 
40 PRINT “LIBELLE COMMANDE : “;: HTAB 2 80 PRINT : INPUT ‘NOM DU FICHIER : “;FS 
0:2$S = "" 90 POKE AC,255:L = 38400 - DC:DS = CHR 
41 GET A$: PRINT AS;: IF ASC (AS) = 13 S (4): PRINT DS"BSAVE"FS",A"DC",L 
THEN 46 “L: PRINT “ADRESSE DEBUT LIBELLE= 
42 IF ASC (AS) = 8 AND LEN (2S$) = 1 T “DC: PRINT ‘ADRESSE FIN CODE="AC 
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COM.SCE 57 S$ LDA TCUM,Y :CHERCHE LE CODE DANS LA TABLE 
Lisa 1.5 38 CMP CLAV 

59 BER 55 
À SAAMAHRREEREEHEHMHEMHENOER 60 CMP #$FF 
2 : x Gi BER 52 
3 :# COMMANDES AUTOMATIQUES + 62 INY 
&;# CODE OBJET = COM.OBT  « 65 INY 
5 + + 64 INY . 
GS HIHI 65 . JP 54 
7: 66 55 INY 
B RG 5300 67 LDA TCOM, Y 
9CLAV EP #6 :STOCKE CODE ENTRE AU CLAVIER | 68 Fr 0 
10 TCOM EQU 49500 STABLE DES CODES-COMMANDE | 6 Tr 
11 ADCOM EPZ #7 “ADRESSE LIBELLE COMMANDE | 70 LIA TCON,Y 
12 COUT EQU $FDED 71 STA ADCOM+1 
ISIN EQU #200 :BUFFER D' ENTREE 72 LOY #0 
1450  JSR SFDIB 2KEYIN =) SAISIE CARACTERE | 7556 LA (ADCOM),Y  ;AFFICHE LIBELLE ET LE 
16 BNE 51 T5 BER 57 
17 LDA #1 Le CHP #FE 
18 STA ESC T7 BER 58 
19 JP 50 78 STA IN, X 
20 51  LDY ESC 7 INX 
" CPY #1 80 JSR COUT 
2 BEQ 53 :CODE APRES CTRL-A 8 INY 
2352 RTS & JP 5 
2 53  LDY # 83 57 LDA ##8D 
25 STY ESC 84 RTS 
% CMP #98 « ESC ? 85 58  LDA #$h0 
2 JSR $FD8E *ENVOIE UN RETURN 87 ESC DFS #1 
29 LD* #0 38 DCM "INT" 
30 R2 LDA TCOM,X 8 END 
3 CMP #$FF :FIN TABLE DES CODES ? 
32 BEO RS 
5 JSR COUT *AFFICHE LE CODE 
%4 LDA #$n0 :SUIVI DE DEUX BLANCS 
5 JSR COUT Récapitulation COM.OBJ 
36 JSR COUT 
Lu INX 0300- 20 1B FD CS 81 DO O8 A9 
5 LDA TCOM, X ADRESSE DU LIBELLE 0308- O1 8D 9A 03 4C O0 03 AC 
3 STA ADCOM 0310- SA 03 CO O1 FO O1 60 AO 
40 IX 0318- 00 8C SA 03 C9 9B DO 3E 
41 LDA TCOM,X 0320- 20 8E FD A2 OO BD 00 95 
42 STA ADCOM+1 0328- C3 FF FO 2D 20 ED FD A9 
ës LDY #0 0330- AO 20 ED FD 20 ED FD E8 
44 RO LDA (ADCOM),V 0338- BD O0 95 85 07 E8 BD O0 
45 CNP #$FE FFIN DU LIBELLE ? 0340- 95 85 08 AO 00 B1 07 C9 
46 BCS RI 0348- FE BO 07 20 ED FD C8 4C 
47 JSR COUT AFFICHE LE LIBELLE 0350- 45 03 20 8E FD E8 4C 25 
48 INY 0358- 03 A9 8D A2 00 60 85 06 
49 JP RO 0360- B9 00 95 C5 06 FO OA C9 
50 R1  JSR $FD& 0368- FF FO AB C8 C8 C8 4C 60 
si INX 0370- 03 C8 B9 00 95 85 07 C8 
52 JM R2 0378- B9 O0 95 85 08 AO OO B1 
SS RS LDA #$8D 0380- 07 C9 FF FO OF C9 FE FO 
5 LDX #0 0388- O0E 9D 00 02 E8 20 ED FD 
5 RTS 0390- C8 4C 7F 03 A9 8D 60 A9 
56 540  STA CLW 0398- AO 60 4E FF 
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Gestion de compte bancaire 


L'entrée d’un ordinateur personnel 
dans la famille n'est pas toujours 
chose aisée et le prix de l'appareil 
doit parfois trouver sa “justification” 
au travers de quelques utilisations 
dites sérieuses” : tenue des comptes 
familiaux, gestion de la bibliothèque, 
préparation des menus selon les invi- 
tés … 


Le programme que je vous propose 
a pour but de vous aider à tenir vos 
comptes bancaires, tout en vous per- 
mettant d'exercer vos talents en Ap- 
plesoft par l'ajout éventuel de sous- 
programmes de votre choix. 


Tout d’abord, il vous faudra définir 
les comptes concernés (numéros et 
libellés) : reportez-vous pour cela aux 
zones du programmes commençant 
respectivement aux lignes 1200 et 
40000. 


Ensuite, les opérations automatiques 
doivent être définies en DATA entre 
les lignes 20502 et 20700 sous la 
forme AA,BB.CC.DD EE, avec : 


AA : numéro du compte concerné 
BB : année-mois du premier mois 
CC : année-mois du dernier mois 
DD : libellé de l'opération 


EE : montant de l'opération 


Ainsi, une ligne telle que 20504 
DATA 031207, 8207, 8306, TELE- 
PHONE,-320 aura pour consé- 
quence un débit automatique de 320 
francs au compte numéro 031207 
pour chaque mois de juillet 1982 à 
juin 1985. 


Une fois ces paramètres fixés et le 
programme sauvé sous sa version 
utilisable, vous pouvez en lancer 
l'exécution. 


Il vous demandera tout d’abord le 
numéro du compte sur lequel vous 
désirez travailler. Répondre par un 
7?” à cette question permet d'obtenir 
le rappel des comptes connus du 


programme. 


Deuxième information à fournir: la 
période de traitement (mois et 
année). Notons ici que le programme 
utilise un fichier distinct par compte 
et par période (le nom d’un tel fi- 
chier se compose du libellé du 
compte, complété par le mois et l’an- 
née concernés). Chaque mois peut 
enregistrer un maximum de 99 opé- 
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rations. Si le fichier correspondant à 
la période indiquée existe, il est lu en 
mémoire dans le tableau TB$; sinon, 
le programme vous permet de le 
créer (ce sera le cas notamment lors 
de la première utilisation). 


L'écran vous servira ensuite de fené- 
tre pour la saisie et l'affichage des 
opérations. 


La dernière ligne constitue le niveau 
de saisie des commandes, que nous 
allons maintenant examiner plus en 
détail. 


1) Flèche à droite (—): permet de 
descendre la fenêtre d'une ligne. 


2) Flèche à gauche (+): permet de 
remonter la fenêtre d'une ligne. 


3) Plus (+) : permet d'afficher les 20 
lignes suivantes. 


4) Moins (—): permet d'afficher les 
20 lignes précédentes. 


5) À: ajout de une ou plusieurs 
lignes. 


Cette commande provoque l'affi- 
chage en haut de l’écran de la der- 
nière ligne du tableau et le position- 
nement du curseur en tête de la 
première ligne blanche qui suit. Vous 
pouvez alors saisir vos opérations, 
sous la forme suivante : 


e date de l'opération: un nombre 
de 00 à 31 


e libellé de l'opération (15 caracte- 
res maximum) 


e numéro du chèque (7 chiffres sans 

RETURN). Si ce numéro est égal 
au précédent donné augmenté de 
1, tapez ‘:” en tête de la zone de 
saisie. 
Si l'opération ne porte pas sur un 
chèque ou autre mouvement ”’nu- 
méroté”, tapez simplement RE- 
TURN sur cette zone. 


®e montant de l'opération, précédé 
du signe ”’—” si c’est un débit (la 
décimalisation est donnée par le 
point et non la virgule). 


Vous indiquez la fin de la saisie en 


tapant ’F” à la place de la date 
d'opération. 


6) C : correction d’une ligne. 


Cette commande doit être suivie du 


FTLIL EL bb Fit 
CURE ddr tre-det "ré 


Dominique Compère 


numéro de la ligne à corriger, en tête 
de laquelle le curseur viendra alors 
se placer. Si un élément est à modi- 
fier, entrez la nouvelle valeur en res- 
pectant les règles de la commande A, 
sinon, tapez RETURN pour passer à 
l'élément suivant. 


7) S : suppression d’une ligne. 


Donnez, comme ci-dessus, le numéro 
de la ligne concernée. Si cette der- 
nière existe, il vous sera demandé 
confirmation de l'annulation. 


8) T: Totalisation jusqu'à une ligne 
incluse. 


Donnez le numéro de la dernière 
ligne à prendre en compte et le pro- 
gramme vous répondra par le solde 
résultant des opérations enregistrées 
de la première ligne jusqu'à celle-ci. 
Appuyez ensuite sur n'importe quelle 
touche pour revenir au niveau des 
commandes. 


9) V: rapprochement avec le relevé 
mensuel de la banque. 


Après la frappe de la commande, en- 
trez le numéro du chèque (7 chiffres 
sans RETURN ou moins de 7 chiffres 
et RETURN). Si le chèque a bien été 
enregistré, le programme vous en 
donne le montant et vous demande 
de confirmer (O ou N). Si le chèque 
ne peut être retrouvé, ou s'il a déjà 
été vérifié, un message d'anomalie 
est émis. 


S'il s'agit d’une opération ‘sans nu- 
méro”, entrez un 0” suivi de RE- 
TURN. Le programme vous propo- 
sera des montants correspondant à 
ce type d'opération (répondez N 
pour continuer la recherche et O si 
vous avez trouvé). 


Tapez F pour terminer la vérification. 


10) N: 
mois. 


ouverture d'un nouveau 


Après confirmation de la commande, 
le programme réalise les traitements 
suivants : 


— calcul du montant à reporter sur le 
mois suivant 


— sauvegarde sur disquette du mois 
en cours 


— remise à blanc du tableau en mé- 
moire 


— ouverture d’un nouveau mois 
(avec report) 
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— enregistrement éventuel des opé- solde calculé est abandonné au profit — sauvegarde sous un nouveau nom 











rations automatiques. du sien. + VERIFY 
Un contrôle est fait sur l'existence du — destruction de la version précé- 
nouveau fichier dont le nom est dé- 11) F: fin du programme. dente 
duit de celui du mois en cours. Si le — RENÂME de ln boûvells version 
fichier existe déjà, le programme Cette commande entraîne la sauve- | 
vous demande s'il doit en tenir garde sur disquette du fichier en Il est indispensable de ne pas chan- 
compte ou, au contraire, le détruire. cours. Ceci s'effectue en trois ger de disquette entre le début et la 
Si le fichier existant est conservé, le étapes : fin du programme ! 
Programme GESCOMPTE SAN NTSP ES 
gr SC 545 L2$ = “PERIODE DU MOIS “ + DES + MOI 
S REM GESTION COMPTE BANCAIRE S$ + ®* * +  STRS (AA) 
6 REM (APPLESOFT) 550 HTAB (39 - LEN (L2$)) / 2: PRINT L 
7 REM =====2===222=-=2222=22222=: 2S$ 
560 DSNS = LIBELLES + MOISS + “ “ + STR 
55 NB = O: REM NB ENREG LUS $ ‘ner 
60 DEF FN Z(Z) = € INT ((Z “ 100) + .0 | 570 VTAB 20: HTAB 9 
50)) / 100 580 PRINT "ETES-VOUS D’ACCORD ?* 
70 DIM TB$#(100): REM TABLEAU S30 VTAB 22: HTAB 4 
75 GOSUB 1600: REM TAB.MOIS 600 PRINT “ENTREZ O COUI) OÙ N CNON) == 
76 TEXT : HOME > “3: GET AS 
77 GOSUB 100: GOTO 360 610 PRINT AS: GOSUB 1300 
80 REM 612 IF AS = “N“ THEN 370 
90 REM 614 IF A$ < > “O" THEN 590 
95 REM #* TRACE LE CADRE # 630 VTAB 12: HTAB 1: CALL - 98: VTAB 1 
: 100 REM 4:L2$ = “(CHARGEMENT DU FICHIER)" 
À 110 LS = "“szissssssssseissssizsiss:::::: | 660 HTAB (33 - LEN (L2$)) / 2: PRINT L 
: RS EN 2s 
120 M$ = “:": INVERSE 670 L2S = *"* 
130 VTAB 1: HTAB 1: PRINT LS: 680 GOTO 2000 
140 VTAB 3: HTAB 1: PRINT LS: 800 REM 
150 VTAB 24: HTAB 1: PRINT LS: 804 REM * ECRITURE * 
160 VTAB 2: HTAB 1: PRINT Ms;: VTAB 2: |806 REM L 
HTAB 39: PRINT Ms: 810 PRINT : PRINT DS;"OPEN ‘:DSNS 
170 FOR VH = 4 TO 23: VTAB VH: HTAB 1: |815 PRINT D$S;"WRITE “;DSNS 
PRINT MS;: VTAB VH: HTAB 39: PRIN | 820 LET NS = NB 
T MS$:: NEXT VH 825 IF NB < 1 THEN 900 
300 X = FRE (0): VTAB 2: HTAB 2: INVERS | 827 IF NS = 1 THEN PRINT NS: PRINT TBS 
E : PRINT “ GESTION DE VOTRE CO |  EoR Le à 70 4e - 1 
MPTE BANCAIRE ‘“: NORMAL L : 
320 POKE 34,3 835 IF LEN (TB$(I)) = O THEN NS = NS - 
330 POKE 33,37: REM LARGEUR 1 
340 POKE 32,1: REM MARGE GAUCHE 840 NEXT I à 
350 POKE 35,23: REM BAS ECRAN 845$ IF NS < 1 THEN 90 
355  REM 850 PRINT NS 
360 REM # DEMANDE IDENTIF. *» 855 FOR I = O TO NB - 1 
380 INPUT “NUMERO DU COMPTE = "“:NCPTS: | 865 PRINT TB$(1I) 
IF NCPTS = “?“ THEN 40000 PAPERS : 
390 GOSUB 1210: IF RC = 1 THEN VTAB 5: | 875 PRINT D$;"CLOSE “;DSNS 
HTAB 5: CALL - 868: GOTO 380 Fm : 
400 VTAB 23: HTAB 1: CALL - 868 300 REM == ERREUR : NB < 1 
410 VTAB 9: HTAB 4 FRE | 
430 INPUT “PERIODE TRAITEE (MM,AA) = “; | 210 TEXT : HOME : INVERSE . 
MMS, AAS 920 PRINT : PRINT “ERREUR : NB = “:: FL 
440 GOSUB 1400: IF RC = 1 THEN VTAB 9: ASH : PRINT NB: NORMAL 
HTAB 1: CALL - 868: GOTO 410 930 STOP 
480 REM 1200 REM 
4930 REM * NOM DU FICHIER * 1210 REM * CONTROLE IDENTIF *# 
500 HOME : VTAB 7: HTAB 5 1215 LET RC = O: REM CODE RETOUR 
510 PRINT “COMPTE “:LIBELLES;" NUMERO | 1220 IF NCPTS = “1229006" THEN LIBELLES 
3: INVERSE : PRINT NCPTS;: NORMAL "BNP +. RETURE 
! PRINT “.":; 1225 IF NCPTS = “O21683" THEN LIBELLES 
520 DES = "DE “ = ‘“BPROP ‘“: RETURN 
530 IF MM = 8 OR MM = 10 THEN DES = “D | 1230 IF NCPTS = "015927" THEN LIBELLES 
é = “P.E.L. “: RETURN 
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1260 VTAB 23: HTAB 3 
1270 CALL - 1052: PRINT "NUMERO DE COM 
PTE ‘‘:: FLASH : PRINT NCPTS;:: NOR 
MAL : PRINT ‘* INCONNU."; 
1280 LET RC = 1: GOSUB 1300: GOSUB 1300 
5 RETURN 
1300 REM 
1310 REM * W A I T *# 
1320 FOR WA = 1 TO 300: NEXT WA 
1330 RETURN 
1350 FOR WA = 1 TO 30 
1360 AA = PEEK ( - 16336) 
1370 NEXT WA 
1380 AA = FRE (O): RETURN 
1400 REM 
1410 REM + CONTROLE DE DATE * 
1430 LET RC = © 
1440 AA = VAL CAAS):MM = VAL CMMS) 
1450 IF AA < 80 OR MM < 1 OR MM > 12 TH 
EN RC = 1: VTAB 23: HTAB 9: PRINT 
* DATE ‘“;: FLASH : PRINT MMS:;:°" * 
:AAS:: NORMAL : PRINT ‘ ERRONEE. “ 
s5: CALL - 1052: GOSUB 1300: GOSU 
B 1300: RETURN 
1460 IF AA < 1900 THEN AA = AA + 19300 
1470 MOISS = TMS(CMM) 
1490 ,RETURN 
1600 REM 
1610 REM # TABLEAU DES MOIS * 
1620 DIM TMS(12) 
1630 TMS(1) = ‘“JANVIER":TMS(2) = ‘“FEVRIE 
R"° 
1635 TMS(3) = ‘“"MARS'":TMS(4) = ‘“"AVRIL** 
1640 TMS(CS) = “MAI":TMS(C6) = “JUIN 
1645 TMS(7) = "JUILLET":TMS(8) = ‘AOUT" 
1650 TMS(S) = ‘“’SEPTEMBRE":TMS(10) = ‘OCT 
OBRE"* 
1655 TMS(11) = "NOVEMBRE" : TMS(12) = “DEC 
EMBRE" 
1660 RETURN 
1700 REM 
1705 REM *# TRAITEMENT FINAL #* 
1710 TEXT : HOME : GOSUB 95 
1720 L1$S = “SAUVEGARDE DU MOIS“: VTAB 12 
: HTAB (40 - LEN (L1S)) / 2 
1730 PRINT L1$: PRINT 
1740 GOSUB 7000 
1750 HOME 
1760 L1S = “AUTRE TRAITEMENT ? CO/N)D'": V 
TAB 12: HTAB (40 - LEN (L1S)) / 
2: PRINT Lis 
1770 PRINT : HTAB 17: PRINT ‘=> “;:: GET 
AS 
1775 IF AS = "“N'"" THEN 2155 
1780 IF AS < > ‘OO THEN 1750 
1785 X = FRE (O) 
1730 FOR I = 1 TO NB 
1810 TBS(I) = “* 
1820 NEXT I 
1830 HOME : GOTO 360 
2000 REM 
2010 REM #%* RECHERCHE FICHIER * 
2020 ONERR GOTO 2100 
2030 LET DS = CHRS (4) 
2040 PRINT : PRINT DS:"VERIFY ‘:DSNS 
2050 POKE 216,0 
2060 GOTO 2200 
2070 REM 
2100 CALL - 958: PRINT : HTAB 12: PRIN 
T “FICHIER INCONNU.'": GOSUB 1350: 
GOSUB 1350: GOSUB 1350: POKE 216 
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2140 


2155 


2160 


2167 
2168 
2170 


2172 
2174 


2176 


2178 
2180 


2200 
2210 
2230 
2240 
2250 
2260 
2270 
2275 


2280 
2290 
2295 
3000 
3010 
3020 
3040 
3050 


3060 


3070 


3080 


3090 
3100 
3110 


3120 


3130 


3140 


3150 
3160 


3170 


3180 
3200 
3210 
4000 
4010 
4012 
4013 
4015 
4020 


0: GOSUB 1300: PRINT 


PRINT * VOULEZ-VOUS LE CREER ? « 
O OÙ N) ‘“;: GET AS$ 
IF AS = “N“ THEN TEXT : HOME : VT 
AB 12: HTAB 18: PRINT “F I N“: VT 
AB 23: HTAB 39: END 
IF AS < > “O‘* THEN VTAB 19: GOTO 
2140 
REM 
REM <<<<<CREATION VIDE>>>>> 
HOME : VTAB 5: HTAB S: INPUT “REPO 
RT = “";AS 
IF VAL CAS) < O THEN 2170 
SO = VAL (CAS):S0 = FN Z(SO): GOSU 
B 9000 
VTAB S: HTAB 14: PRINT SOS;: GOSUB 
1300 
MMS = RIGHTS (“O0 + MMS,2) 
TBS(O) = MMS + " 
“ + SO$S:NB = 1: GOSUB 2 
0000: PRINT : GOSUB 800: GOTO 300 
O 
REM 
REM * CHARGE LE MOIS EN MEMOIRE * 
PRINT DS;"OPEN ‘“; DSNS 
PRINT DS;"READ ‘; DSNS 
INPUT NB 
FOR I = O TO NB - 1 
INPUT TBS(I) 
LET R1$ = MIDS (TBS(I),25,7): IF 
VAL (CR1$) > 99 THEN R1 = VAL (CR 
15) 
NEXT I 
PRINT DS$;'"CLOSE ‘; DSNS 
LET CL = 1 
REM 
REM #* PROGRAMME PRINCIPAL # 
TEXT : HOME :CL = 1 
GOSUB 11000 
A1S = ““:A2$ = ‘“"“:A2 = O: GET A1$: 
+ PRINT A1$;" "; 
IF ASC (A1$) = 21 THEN CL = CL + 
1: GOTO 3040 
IF ASC (A1$) = 8 THEN CL = CL - 1 
: GOTO 3040 
GET AS: IF ASC (AS) > 21 THEN A25S 
= A2$ + AS: PRINT AS$;: GOTO 3080 
IF ASC (AS) < > 13 THEN 3040 
LET A2 = VAL (CA25S) 
IF A1$ = ‘A THEN GOSUB 6000: GOT 
0 3040 
IF A1$ = ‘“+" THEN CL = CL + 20: GO 
TO 3040 
IF A1$ = ‘“-* THEN CL = CL - 20: GO 
TO 3040 
IF A1$ = ‘“S* THEN GOSUB 4000: GOT 
O0 3040 
IF A1$ = “F“* THEN GOTO 1700 
IF A1$ = “T* THEN GOSUB 9500: GOT 
0 3050 
IF A1$ = “V" THEN GOSUB 7500: GOT 
O 3040 
IF A1$ = “N'" THEN GOTO 8500 
IF A1$ = “C" THEN GOSUB 4500 
GOTO 3040 
REM 
REM #*# SUPPRESSION #* 
GOTO 4150 
REM 
GOSUB 5600 
L2$ = “CONFIRMEZ SVP CO/N)D":L3S = * 
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SUPPRIME": GOSUB 5500 
4030 VTAB 3: HTAB 1 
4050 GET AS: IF AS < > “O" THEN GOSUB 
1350: GOSUB 5600: RETURN 
4060 CALL - 868 
4070 TBS(CL) = ‘““: GOSUB 5600 
4080 FOR I = 1 TO NB - 1 
4090 IF LEN (TBS(I)) > O©O THEN 4120 
4100 TB$S(I) = TBS(I + 1):TBSCI + 1) = *" 
4120 NEXT I 
4130 NB = NB - 1 
4140 RETURN 
4150 REM 
4160 IF VAL (A2$) < 1 THEN 4200 
4170 CL = VAL (A2$): IF CL > (NB - 1) T 
HEN  GOSUB 1350: GOSUB 5600: RETU 
RN 
4180 GOSUB 11000: VTAB 3: HTAB 1: GOTO 
4013 
4200 REM 
4210 L2$ = “NUMERO DE LIGNE (NN) : ‘“: GO 
SUB SS500: INPUT ‘““;A2$: GOTO 4160 
4500 REM 
4502 REM * CORRIGE *» 
= 4510 L3$ = "CORRIGE‘": GOSUB 5500 
5 4512 C = VAL (A2$): IF C > © THEN 4540 
É 4520 L2$ = “LIGNE (NN) : ‘“: GOSUB 5500 
(5e 4530 GET AS: PRINT AS;: GET BS$: PRINT B 
#: $;:CS = AS + B$S:C = VAL (CS) 
54 4540 IF C < 1 OR C > NB - 1 THEN GOSUB 
É 1350: GOSUB 5600: RETURN 
“! 4570 CL = C: GOSUB 11000 
3 4590 LET JO$S = “":LIS = "":NUS = "“"“:50s 
4600 JO$ = LEFTS (TBS(CL),2):LIS = MID 
S (TB$S(CL),4,15):NUS = MIDS (TBS 
(CL),25,7):S0$ = MIDS (TBS(CL),3 
2,9) 
4610 LC = 3: GOSUB 22000 
4620 IF AS < > ‘“OO0" THEN JOS = AS 
4630 IF BS < > “ * THEN 
LIS = BS 
4640 IF CS < > ‘“O000000" THEN NUS = Cs 
4650 IF D < > O THEN SO = D: GOSUB 900 
(o) 
4740 TBS(CL) = JOS + “ * + LIS + "" 4" 
“+ NUS + S0S 
4750 GOSUB 5600 
4760 RETURN 
5500  REM 
S510 REM * MESSAGE/COMMANDE * 
SS60 VTAB 2: HTAB (40 - LEN (L3S)) / 2 
: FLASH : PRINT L3$;:: NORMAL 
5570 L3S = 
SS80 VTAB 24: HTAB 1: PRINT “==> “;L2S; 
5585 L2$ = ** 
5590 RETURN 
S600 VTAB 2: HTAB 1: CALL - 868 
S610 VTAB 24: HTAB 5: CALL 868: VTAB 
24: HTAB 38: INVERSE : PRINT NB 
— 1; | 
S620 NORMAL : VTAB 24: HTAB 4: RETURN 
6000 REM 
6002 REM * AJOUTER UNE LIGNE * 
6015 L2$ = “ENTREZ L’OPERATION (OU F)":L 
3$ = "AJOUT": GOSUB 5500 
6030 CL = NB - 1: GOSUB 11000 
6040 LC = 4: VTAB LC: HTAB 1: GOSUB 2200 
te 
6050 IF W$ = “F" THEN GOSUB 5600: RETU 
RN 
ACER EEE 


60930 
6300 
6310 


6320 
6330 
7000 
7020 


7030 
7040 
7050 
7060 
7070 
7500 
7505 
7510 


7515 
7520 
7522 
7525 
7530 
7540 
7545 
7550 
7560 
7570 
7580 
7600 
7610 
7615 
7630 
7640 
7645 
7650 


7660 
7700 


8500 
8505 
8510 
8515 
8520 


8530 


8535 
8540 


8550 
8559 


JO$ = AS:LIS = BS:NUS = C$:50 = D: 
GOSUB 9000 
TBSCCL + 1) = JOS + “°° 4 LIS + “ * 


+ CL) 


+ NUS + SOS 
VAL (NUS): IF NU > 100 THEN R 
1 = NU 
LET NB = 
RETURN 
REM * ECRITURE DU MOIS * 
WDS = DSNS:DSNS = DSNS + “,T'":DS 
CHRS (4) 
GOSUB 800: REM ECRIT. 
PRINT DS"“VERIFY ";DSNS 
PRINT DS$"DELETE ‘“;WDS 
PRINT DS'"RENAME ‘“;DSNS;:",";:UDS 
RETURN 
REM 
REM # VERIFICATIONS * 
L2$ = “ENTREZ NUM.CHEQUE : 
"VERIFIE"“: GOSUB 5500 
cs = LLE LI 
FOR I = 
GET AS 
IF AS = 
RN 
IF ASC (AS) = 
$ ("O000000" + CS$,7): GOTO 7560 
IF ASC (AS) < 48 OR ASC (AS) > 5 
7 THEN GOSUB 1350: GOTO 7510 
CS = C$ + AS: PRINT AS: 
NEXT I 
FOR I = 1 TO NB - 1 
IF MIDS (TBS(I),25,7) = 
610 
NEXT I 
GOSUB S600:L2$ = ‘’NON TROUVE‘": GOS 
UB 1350: GOSUB 5500: GOSUB 1350: 
GOSUB 1300: GOTO 7510 
IF MIDS (TBS(I),24,1) = 
$ = “0000000 THEN 7580 
IF MIDS (TBS(I),24,1) = 
7700 
GOSUB S600:L2$S = 
3) + * ? (O/N) : 
ET AS 
IF AS = "N" 
IF AS < > "“O" THEN 7630 
TBSCI) = LEFTS (TBS(I),23) + 
MIDS (TBS(I),25,16) 
GOSUB S600:L2$ = "OK": GOSUB 5500: 
GOSUB 1300: GOSUB 1300: GOTO 751 
O 
GOSUB S600:L2$ = “DEJA VERIFIE": G 
OSUB 1350: GOSUB 5500: GOSUB 1350 
: GOSUB 1300: GOTO 7510 
REM 
REM 
REM 
TEXT : HOME 
GOSUB SS:L1$ = “AVEZ-VOUS D’AUTRES 
OPERATIONS": VTAB 10: HTAB (38 - 
LEN (L1$)) / 2: PRINT L1S: PRIN 
F 
L1$ = “A AJOUTER AU MOIS EN COURS ? 


NB + 1: GOTO 6030 


“":L3S 


1 TO 7 


“F" THEN GOSUB 5600: RETU 


13 THEN CS = RIGHT 


CS THEN 7 


"V* AND C 


"“"V'" THEN 


MIDS (TBS(I),32, 
GOSUB S500: G 


THEN 7580 


eye + 


* CHANGEMENT MOIS * 


“": HTAB (38 - LEN (L1$)) / 2: PR 
INT L1$: PRINT 
VTAB 14: CALL - 868 
HTAB 17: PRINT “=> “;: GET AS: PRI 
NT A$;: IF AS = ‘“O" THEN 3050 
IF AS < > “N“ THEN 8535 
REM 
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8560 


REM CALCUL REPORT MOIS 


8561 REM 

8565 LET TT = © 

8570 FOR I = © TO NB 

8580 T1 = VAL ( MIDS (TBS(I),32,9)):T2 
= FN Z(CT1) 

8590 TT = FN Z(TT) + T2 

8600 NEXT I 

8610 REM 

8611 REM SAUVE MOIS EN COURS 

8612 REM 

8615 PRINT : PRINT : HTAB 15: PRINT TT 

8620 GOSUB 7000 

8640 REM 

8650 REM 

8651 REM R.A.Z MOIS EN MEMOIRE 

8652 REM 

8660 FOR I = 1 TO NB:TBS(CI) = “"“: NEXT 
I 

8665 LET NB = 1 

8670 REM 

8671 REM CHANGE NUMERO MOIS 

8672 REM ET REPORT CALCULE. 

8673 REM 

8680 MM = VAL (MMS):AA = VAL CAAS)D: IF 
MM = 12 THEN MM = O:AA = AA + 1 

8690 MM = MM + 1:MMS = STRS (MM):AAS = 
STRS (AA) 

8700 IF MM < 10 THEN MMS = “O" + MMS 

8710 SO = TT: GOSUB 9000 

8720 TBS(O) = MMS + 

“+ S0$ 

8730 MOISS = TMS (MM) 

8735 GOSUB 1400: GOSUB 1210 

8740 DSNS = LIBELLES + MOISS + * “ + ST 
RS (AA) 

8745 GOTO 21000 

8750 PRINT :HT = (40 - LEN (DSNS)) / 2 
: HTAB HT: PRINT DSNS$: PRINT 

8755 GOSUB 20000 

8760 PRINT D$:"OPEN ‘";:DSNS 

8770 PRINT D$:"DELETE ‘“;DSNS 

8800 GOSUB 800 

8850 GOTO 3020 

9000 REM 

9010 REM * SO ===> 50$ * 

9020 SW = FN Z(S0) 

9030 50$ = STRS (SW) 

9050 S50$ = RIGHTS (C‘ " + S0$,9) 

9060 IF MIDS (S0$,7,1) = “." THEN RET 
URN 

9070 IF MIDS (S0$,8,1) = “." THEN S0S 
= S0$ + “O"“: GOTO 3050 

9080 S0$ = S0$ + ".00": GOTO 93050 

9500 REX 

9510 REM * SOLDE * 

9511 IF A2 > NB - 1 THEN A2 = NB - 1 
9515 L2$ = “TOTAL APRES LIGNE : ‘“ + A2S: 
L3$ = "TOTAL": GOSUB 5500 

3600 TT = © 

9610 FOR B = O©O TO A2 

9620 Ti = VAL ( MIDS (TB$S(B),32,9)):T2 
= FN Z(T1): IF T2 = O THEN 9640 

9630 TT = FN Z(TT) + FN Z(T2) 

9640 NEXT B 

3650 HTAB 31: CALL - 868 

9660 INVERSE : HTAB 31: PRINT FN Z(TT) 
:: NORMAL : GET A$: GOSUB 5600: R 
ETURN 

11000 REM 

11010 REM * EDITEUR #* 
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11015 
11030 


11040 


11050 
11110 
11115 
11117 
11120 
11130 
11135 
11140 


11150 
11160 


11170 


11180 


111930 


11200 
20000 
20010 
20012 
20014 
20020 
20030 
20040 
20045 
20050 
20060 
20070 
20080 
200930 


20110 


20130 
20140 
20210 


20220 
20500 
20501 
20502 
20510 


20520 
20700 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 


210930 


21110 
21120 
21130 
21150 


REM 

POKE 35,23: POKE 34,2: POKE 33,40 
: POKE 32,0 

VTAB 1: HTAB ((4O - LEN CDSNS)) 
/ 2): PRINT DSNS 


IF CL < 1 THEN CL = 1 
IF CL > (NB - 1) THEN CL = NB - 1 


LET C2 = CL: REM SAUVE CL 

IF NB < 1 THEN 11180 

FOR EC = 3 TO 22 

VTAB EC: HTAB 1: PRINT TBS(CL); 

IF CL = NB THEN 11150 

VTAB EC: HTAB 22: INVERSE : PRINT 
RIGHTS (“O"* + STRS (CL),2);: N 

ORMAL 

LET CL = CL + 1: IF CL > NB THEN 

CL = NB: CALL - 9S8 

NEXT EC 

VTAB 24: HTAB 38: INVERSE : PRINT 
RIGHTS ("“O* + STRS (NB - 1),2) 

3: NORMAL 


VTAB 24: HTAB 1: 
LET CL = C2 
RETURN 

REM 
REM 
REM 
LET DS = 
RESTORE 
READ NWS,DAS,DBS,DCS,DDS 

IF DAS = “OO THEN RETURN 
IF NwWS < > NCPTS THEN 20030 
CPS = AAS + MMS 

IF CPS < DAS THEN 20030 

IF CPS > DBS THEN 20030 


PRINT “=> *; 


* CONSTANTES * 


CHRS (4) 


LET NB NB + 1 
LET LC LEN (DCS): IF LC > 14 T 
HEN DCS = LEFTS (DC$,15):LC = 15 

: GOTO 20130 
DCS = DCS + MIDS (" 

"1,15 - LC) 
SO = VAL CDDS): 
DDS = S0$ 
TBS(NB - 

LL + LL] 

GOTO 20030 

REM 

REM CONSTANTES 

REM 

DATA 1229006,8301,8310,IMPOTS, -27 
60 

DATA 12293006,8209,8412,PEL, -600 


GOSUB 9000 


12 = "01" + 
0000000" 


+ DCS + * 
+ DDS 


DATA 00,00,00,00,00 

REM 

REM # NOUVEAU EXISTE ? #* 

REM 

POKE - 16368,0: REM RAZ CLAVIER 


ONERR GOTO 21400 

PRINT 

PRINT DS; "VERIFY “;DSNS 

POKE 216,0: POKE 222,0 

HOME :L2$ = “LE NOUVEAU MOIS EXIS 
TE DEJA.": VTAB 12: HTAB (40 - L 
EN (L2$)) / 2: PRINT L2S 

PRINT :L2$ = “FAUT-IL LE SUPPRIME 
R (O/N) ?": HTAB (40 - LEN (L25) 
) / 2: PRINT L2S; 

GET WS: PRINT 


IF W$ = “O" THEN GOTO 8750 
IF WS < > "N"“ THEN 21080 
GOTO 2230 
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21400 POKE 216,0: POKE 222,0 22210 IF W$ = “:"* AND HT = 25 THEN GOT 


21410 GOTO 8750 O 22700: REM NUM.CHQ.+1 
22000 REM +* SAISIE DE LIGNE *# 22220 CS = CS + WS:HT = HT + 1: IF HT < 
22003 REM 32 THEN 22190 
22025 REM ==== JOUR ===-= 22230 CS = RIGHTS (‘“O000000" + CS,7) 
22030 HT = 1:4$ = ‘“" 22240 REM ==== SOMME ===-= 
22040 VTAB LC: HTAB HT: GET W$: PRINT W | 22250 HT = 32:D$S = 
S:; 22260 VTAB LC: HTAB HT: GET WS$: PRINT W 
22045 IF W$S = ‘“F‘“ THEN RETURN S;: 
22050 IF ASC (W$S) = 13 THEN 22080 22270 IF W$ = CHRS (13) THEN 22300 
22055 IF ASC (W$) = 8 THEN 22030 22275 IF ASC (W$) = 8 THEN 22250 
22060 A$ = AS + WS:HT = HT + 1: IF HT < 22290 DS = DS + WS:HT = HT + 1: IF HT < 
3 THEN 22040 41 THEN 22260 
22080 AS = RIGHTS ("“OO0" + AS$,2):A = VA | 22300 D = VAL (DS) :DS = CHRS (4) 
L CAS): IF A < O OR À > 31 THEN 22330 RETURN 
GOSUB 1350: GOTO 22030 22700 REM 
22090 REM ==== LIBELLE ===-= 22702 REM NUM.CHQ +1 
22100 HT = 4:BS = “* 22705 IF R1 < 100 THEN 22180 
22110 VTAB LC: HTAB HT: GET W$: PRINT W | 22710 R1 = R1 + 1:R1S = STRS (R1) 
S: 22720 C$ = RIGHTS (‘“*O0000000" + R1$,7) 
22120 IF ASC (W$) = 13 THEN 22160 22730 VTAB LC: HTAB 25: PRINT Cs: 
22125 IF ASC (W$S) = 8 THEN 22100 22900 GOTO 22240 
22130 : 40000 REM 
22150 B$S = BS$S + WS:HT = HT + 1: IF HT < 40010 REM LISTE DES COMPTES 
aa 19 THEN 22110 40020 REM 
3 22160 BS$ = LEFTS (BS + " 40030 HOME : VTAB 9: HTAB 10 
pes “,15) 40050 PRINT “1229006..,..BNP Le 
* 22170 REM ==-== NUM.CHEQUE ==== 40080 PRINT : HTAB 10 
2 22180 HT = 25:CS = “" 400930 PRINT ‘“O021683......BPROP ” 
Fe <| 221930 VTAB LC: HTAB HT: GET WS: PRINT W | 40126 PRINT : HTAB 10 
es 8; 40127 PRINT “O15927......P.E.L. "à 
: 22200 IF ASC (WS) 13 THEN 22230 40130 PRINT : HTAB 20: GET AS 


4 22205 IF ASC (WS) 8 THEN 22180 40150 GOTO 370 


TELSAT 440 TELSAT 640 
Modem 300 bit/s full duplex Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


SATELC: Wlinternational 69-71,rue du CHEVALERET 75013 PARIS 
Tél. 58414 75 Telex 204120F 
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Compression d'images HGR 


Je vous propose ici deux petites rou- 
tines en langage-machine qui vous 
permettront, dans la majorité des cas, 
de réduire la place occupée sur une 
disquette par une image graphique 
en haute résolution. 


La première, IMAGE 1, analyse la 
page graphique où réside l’image 
pour en retirer les données essentiel- 
les. L'analyse se fait par séries de 
256 octets. La routine prend un octet 
et le compare au suivant: s'ils sont 
identiques, elle continue ainsi jusqu’à 
ce qu'elle trouve un octet différent 
ou qu’elle soit arrivé au dernier de la 
série. Dans l’un ou l’autre cas, elle 
stocke alors dans une zone tampon 
l’octet concerné et le nombre de ses 


zone tampon pour reconstituer 
l'image dans la page graphique. 


Il est évident que ces routines ne 
présentent d'intérêt que pour le trai- 


ji 


TE 


eZ, 





Philippe Krepper 


tat donné par IMAGE 1 occupera 
deux fois plus de place que l'original! 


Les deux petits programmes en Ap- 
plesoft listés ci-après illustrent l’utilisa- 
tion des routines. 


TEST-COMP assure la ’’compres- 
sion” d’une image et la sauvegarde 
du résultat (sous le même nom que 
l'original suivi de -COMP). En fin de 
traitement, il affiche le nombre d’oc- 
tets occupés par la zone tampon 
(LM), ce qui vous permet de savoir 
tout de suite si l’image mérite d’être 
retenue pour une utilisation sous 
forme analysée. L'adresse de départ 
de la zone tampon doit être POKée 








es 
occurrences consécutives, puis re- dans les mémoires 8 et 9 (sous la E 
prend l’analyse. Au terme de celle-ci, forme octet bas - octet haut). pd 
la zone tampon peut être sauvée sur +3 
disquette. tement d'images comportant un mi- TEST-DECOMP vous permettra pour Hs 
nimum d’octets consécutifs sembla- sa part de vérifier la restitution de : 
La seconde routine, IMAGE 2, utilise bles. A la limite, si tous les octets l'image graphique par IMAGE 2 à lei 
tout simplement les données de la sont différents deux à deux, le résul- partir de la zone tampon. Ts 
Programme TEST-COMP Programme TEST-DECOMP Fil 
1 INPUT “NOM DE L’IMAGE : “;1S 1 INPUT "NOM DE L’IMAGE : “;IS:11S = IS 
5 HGR + “-COMP"“:1IS = IS + “-DECOMP" 
10 POKE 8,0: POKE 9,96:D$ = CHRS (4): S HGR 
PRINT DS$"BLOAD'"IS 10 POKE 8,0: POKE 9,936:D$ = CHRS (4): 
15 IS = IS + ‘-COMP" PRINT DS$"BLOAD"IIS 
20 PRINT DS"BLOAD IMAGE 1 OBJ'": CALL 76 20 PRINT DS'"BLOAD IMAGE 2 OBJ“: CALL 87 
8:LM = PEEK (24) + 256 * PEEK ( 4: PRINT DS"BSAVE"1$",AS2000,L$S20 
25): PRINT DS"BSAVE"IS",AS6000, L* 00" 
LM: TEXT : HOME : PRINT ‘“LM="LM 
1 OR6 $300 IMAGE 1 | 1 CLC 7 LDY #$0 
2 IMAGE EPZ $6 Lisa 1.5 20 ADC #$iF 38 STA (TAMPON) ,Y 
3 TAMPON EPZ $8 2 STA FIN 39 INY 
& OCTET EPZ $A 2 LDA #$FF 40 LDA OCTET 
S FIN EPZ $B 23 STA LIMITE hi STA (TAMPON), Y 
6 LIMITE EPZ $C 24 LDA #$0 42 LDA NO 
7 HPAG  EPI $E6 25 STA IMAGE hs CLC 
8 NO EPZ $18 26 BOUCLO LDY #$0 CT ADC 42 
9 LDA #0 27 LDA (IMAGE), Y 45 STA NO 
10 STA NO 28 STA QCTET 46 BCC 50 
ii STA NO+I 29 BOUCL1 CPY LIMITE 47 INC NO+! 
12 LDA HPAG 30 BEQ SUITE 48 50 LDA TAMPON 
13 CHP #$20 31 INY 43 CLC 
14 BEGQ SUITEO 32 LDA (IMAGE) ,Ÿ Lt) ADC #$2 
15 CP #$40 33 CMP OCTET si STA TAMPON 
16 BEG SUITEO 3 BEB BOUCLI 52 BCC SUITE2 
17 LDA #$40 35 SUITE{ TYA Eu INC TAMPON+$1 
18 SUITEO STA IMAGE+$1 3% TAX 54 SUITE2 TXA 
D NN ER 
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5 CLC 3 BEQ SUITEO IMAGE 1 0BJ 
5 ADC IMAGE 10 LDA #$40 #300. 379 
57 STA IMAGE 11 SUITEO STA IMAGE+$1 
58 LDA IMAGE+$1 12 LDA #50 0300- A9 00 85 18 85 19 AS E6 
3 ADC #50 13 STA IMAGE 0308- C9 20 FO 06 C9 40 FO 02 
60 STA IMAGE+$1 14 BOUCLO LDY #40 0310- A9 40 85 07 18 69 1F 85 
6i CMP FIN 15 LDA (TAMPON), Y 0318- 0B A9 FF 85 OC A9 00 85 
62 BCC BOUCLO 16 _ CKP #40 0320- 06 A0 00 B1 06 85 OA C4 
63 BER SUITES 17 BEQ RETOUR 0328- 0C FO 07 C8 Bi 06 C5 0A 
64 BCS RETOUR 18 INY 0330- FO F5 98 AA A0 00 91 08 
65 SUITES LDA #$FF 19 STA TEMPOR 0338- CB A5 OA 91 08 A5 18 18 
66 SEC 20 LDA (TAMPON) ,Y 0340- 69 02 85 18 90 02 EG 19 
67 SBC IMAGE 21 LDY TEMPOR 0348- A5 08 18 69 02 85 08 9 
68 CHP #50 22 BOUCL1 DEY 0350- 02 E6 09 8A 18 65 06 &5 
69 BEQ RETOUR 23 STA (IMAGE) ,Ÿ 0358- 06 A5 07 69 00 85 07 CS 
70 STA LIMITE 24 BNE BOUCL! 0%60- 0B 90 BE FO 02 BO OD A9 
71 BNE BOUCLO 2 LDA TEMPOR 0368- FF 38 ES 06 C9 00 FO 04 
72 RETOUR LDY #$0 2 CLC 0370- 85 OC DO AD AO 00 98 91 
TS TYA vil ADC IMAGE 0378- 08 60 
74 STA (TAMPON) ,Y 28 STA IMAGE 
75 RTS 29 BCC SUITE! 
76 END 30 INC IMAGE+S1 #36, 309 IMAGE 2 OBJ 
31 SUITE1 LDA TAMPON 
32 CLC OS6A- AS E6 C9 20 FO Œ6 
1 IMAGE EPZ $6 IMAGE 2 3 ADC ##02 0370- C9 40 FO 02 A9 40 85 07 
2 TAMPON EPZ $8 Lisa 1.5 4 STA TAMPON 0378- A9 00 85 06 A0 00 Bi 08 
3 TEMPOR EPZ 35 BCC BOUCLO 0380- C9 00 FO 25 C8 85 OA Bi 
& HPAG  EPZ $E6 36 INC TAMPON+$1 03B8- 08 A4 OA 88 91 06 DO FB 
5 LDA HPAG 37 CLC 0390- A5 OA 18 65 06 85 06 90 
6 CMP #$20 38 BCC BOUCLO 0398- 02 E6 07 A5 0B 18 69 02 
7 BEQ SUITEO 39 RETOUR RTS 03A0- 85 08 90 DB E6 09 18 90 
8 CMP #$40 40 END O3AB- D3 60 


Accès direct aux disquettes 


Gérard Michel Programme DIRAC 

Ce petit programme est un utilitaire rudimentaire qui vous | 10 TEXT : HOME : INPUT "PISTE : “Ps IN 
permettra d'accéder directement à un secteur donné sur PUT “SECTEUR : ‘“:5S 

une disquette pour y lire ou y écrire des informations. 20 INPUT “COMMANDE : “:C: IF C< 1 OR C 


> 2 THEN 20 
L'instruction d'appel à RWTS et les paramètres des tables | 30 INPUT "DRIVE : “3D: IF D < 1 OR D > 


IOB et DCB sont ‘’cachés” à la fin du programme Apple- 2 THEN 30 

soft. En conséquence, si vous trouvez ce dernier trop sim- |4O INPUT “ADR. DECIMAL : “:ADS: IF ADS 

pliste et désirez l'améliorer, n'oubliez pas de vérifier que < > ‘““* THEN 50 

vos modifications n’écrasent pas les paramètres où de les | 45 1NpuT “ADR. HEXA : “;:Z1,22,23,24 

déplacer dans le cas contraire. SO POKE 2496,P: POKE 2497,S: POKE 2504, 

C: POKE 2494,D: IF ADS < > TH 

Les informations à fournir sont les suivantes : EN AD = VAL (ADS$):HB = INT (AD 
: es / 256):LB = AD - 256 » HB: POKE 2 

e Piste et secteur en décimal. 500,LB: POKE 2501,HB: GOTO 100 

e Commande : 1 pour lire ou 2 pour écrire. 70 21 = (Z1 » 16) + 22:22 = (23 »# 16) + 


24: POKE 2501,Z1: POKE 2S500,22 
100 CALL 2484: POKE 2508,D: END 
e Pour l’adresse-mémoire à partir de laquelle seront trans- TT ——————— 


férées les données, deux possibilités vous sont offertes : Programme DIRAC : code caché 
— donner l'adresse en décimal (par exemple 8192), 09B4- A9 09 AO BC 


— faire un "RETURN" sur la zone ‘Adresse décimale” et | 09B8- 20 D9 03 60 O1 60 O1 O0 
la donner ensuite en hexadécimal sous la forme 093C0- 00 OB CD 03 00 1C 00 00 
Z1,22,23,Z4 (par exemple, pour rentrer $2000, tapez | 0O9C8- 01 E6 FE 60 O1 OO O1 EF 
2,0,0,0). O9DO- D8 


e Lecteur concerné (1 ou 2). 
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Dessins avec une 


(#* NICOLAS MONSARRAT MAI 83 *) 


PROGRAM DECLOUS; 
USES TURTLEGRAPHICS, TRANSCEND; 


CONST NPDEF = 20; 


TYPE CLOUS =RECORD 
GENRE :CHAR; 
ARGU :ARRAY[1..5S] 
OF REAL 
END; 


TABLEAU =ARRAY [1..20,1..2] 
OF CLOUS; 


VAR TAB :ARRAY[1..20] OF CLOUS; 
CALC,POS :ARRAY[1..20,1..2] OF REAL; 
OPTION : CHAR; 

MAXIND :INTEGER; 
BOITACLOU:FILE OF CLOUS; 
NP : INTEGER; 

X,Y :REAL; 


PROCEDURE EFF(LIGNE:INTEGER) ; 
BEGIN 
GOTOXY(O, LIGNE) ; 
WRITE(’”’:40); 


GOTOXY(O,LIGNE) 
END; 
FUNCTION RAD(ANGLE :REAL) :REAL; 
BEGIN 
RAD := ANGLE * 0.0174532 
END; 


PROCEDURE ECRITURE(NOM:STRING); 
VAR I:INTEGER:; 
BEGIN 

REWRITE(BOITACLOU, NOM) ; 

FOR I := 1 TO MAXIND DO BEGIN 
BOITACLOU”.GENRE := TAB(IJ.GENRE; 
BOITACLOU".ARGU := TAB(I].ARGU; 
PUT(BOITACLOU) 

END: 

CLOSE(BOITACLOU, LOCK) 

END; 


PROCEDURE LECTURE (NOM:STRING) ; 

VAR I:INTEGER; 

BEGIN 
C(#$1-*)RESETCBOITACLOU, NOM) ; (xSI+x) 
IF IORESULT<>0O 

THEN BEGIN 
WRITECCHR(7),NOM, 
? N’''’EXISTE PAS’); 
FOR I := 1 TO 4000 DO ; 
EXIT(LECTURE) 


MAXIND := MAXIND + 1; 
TAB[MAXINDI.GENRE := BOITACLOU".GENRE; 
TABCMAXIND] .ARGU = BOITACLOU”.ARGU; 
GET(BOITACLOU) 
UNTIL EOF(BOITACLOU) ; 
CLOSE (BOITACLOU, LOCK) ; 
END: 


PROCEDURE CALCUL; 
VAR I:INTEGER; 


BE œ Te 
MEFFELE: 
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planche à clous 


Nicolas Monsarrat 


Le but de ce programme est de si- 
muler à l’aide de l'Apple II la réalisa- 
tion de dessins à base de clous. Cha- 
cun d’entre nous a, dans sa jeunesse, 
relié des clous plantés sur une plan- 
che suivant des motifs géométriques 
(cercles, droites...) au moyen de ficel- 
les. Ce programme vous permettra 
justement de réaliser une infinité de 
créations de ce genre, avec tous les 
avantages que peut comporter l’utili- 
sation de l'informatique : modifica- 
tion du dessin, insertion de clous, 
etc. De plus, vous pourrez recopier 
vos dessins sur une table traçante 
Watanabe si vous en êtes équipé. 


Pour ce qui est de la programmation, 
le choix du Pascal s’imposait pour 
plusieurs raisons. Tout d'abord, il est 
plus facile d'améliorer le programme 
grâce à la clarté des noms de procé- 
dure : LECTURE(NOM:STRING); est 
plus parlant” que GOSUB 9000. 


Ensuite, la gestion de la mémoire as- 
surée automatiquement par le sys- 
tème Pascal élimine les problèmes de 
collisions entre programme et page 
HGR. 


Enfin, la vitesse issue de la compila- 
tion permet un tracé rapide malgré 
les nombreux calculs effectués. 


Voyons maintenant concrètement 
comment planter nos clous ! 


Ils ne peuvent être diposés que sur 
des droites ou sur des cercles. 


Une droite sera représentée par qua- 
tre nombres (suivis d’un cinquième 
inutile en l'espèce) ; ainsi : 


D: X1 Y1 X2 Y2 0 (le 0” est ajouté 
par le programme) 


représente une Droite allant du point 
X1-Y1 au point X2-Y2. 


La représentation des cercles réclame 
cinq nombres utiles” : 


C: R AD AA XI Y1 


représente un arc de Cercle de rayon 
R, de centre X1-Y1, entre les angles 
AD et AA (compris entre —360 et 
+360 degrés). Si AA est supérieur à 
AD, les clous seront disposés dans le 
sens trigonométrique, et inversement. 


Il existe également une instruction 
spéciale, le séparateur de syntaxe N : 


N:00000 


sert à réaliser deux dessins indépen- 
dants (les clous de l'instruction précé- 
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dente ne seront pas reliés à ceux de 
l'instruction suivante). 


Pour exécuter le programme, on 
tape au niveau COMMAND du Pas- 
cal un X)execute du programme- 
code et le menu principal apparaît. 
On y trouve les options classiques de 
chargement (Load) et de sauvegarde 
(Save). Si vous ne chargez rien, ap- 
puvez sur N (pour nouveau dessin). 
L'Édition permet ensuite de visualiser 
et de modifier le dessin. 


Examinons de plus près la création 
de notre premier dessin. 


Pour confirmer l'effacement du des- 
sin antérieur, il faut répondre par 
"O” à la question "NOUVEAU FI- 
CHIER ?”. Les commandes D, C et 
N déjà évoquées apparaissent alors. 
Pour un premier exemple simple, 
vous pouvez taper : 


D 0 O 279 0 
D 279 0 279 191 


Les erreurs éventuelles seront corri- 
gées plus tard. 


Tapez F pour revenir au menu prin- 
cipal et marquer la fin de la saisie, 
puis passez dans l'Editeur. 


Il s’agit d’un éditeur de ligne, c’est à 
dire que l’on travaille sur les numé- 
ros des instructions et non sur le 
texte. Les commandes <M>odif, 
<I>nsert et <S>uppr sont les 
commandes d'édition classiques. 
L'option <N>pts change le nombre 
de clous des droites et des portions 
de cercle (la valeur par défaut est 
20). La commande <D>raw permet 
de visualiser le dessin. Pour effacer 
un dessin en mémoire, il suffit de 
taper N. 


La commande <X>chang permet 
d'échanger les extrémités de vos fi- 
gures; cela évite d’avoir à retaper les 
lignes ou liaisons qui ne conviennent 
pas. 

Si vous êtes possesseur d'une table 
traçante Watanabe, vous pourrez y 
planter vos clous grâce à l'option 
<W3>. Le nombre de points est tri- 
plé afin d'obtenir une densité compa- 
rable à celle de l'écran. Les coordon- 
nées sont adaptées à la résolution de 
la table (environ 3600 sur 2600 
points). 


Une fois votre travail terminé, il ne 
vous reste qu’à taper <F>in, sauver 
votre dessin et quitter le programme. 


Loin d’être parfait, ce dernier permet 
néanmoins de créer facilement de 
beaux dessins par ordinateur. On 
pourrait ajouter d’autres figures géo- 
métriques, mais les possibilités offer- 
tes par les droites et cercles sont déjà 
infinies, ainsi que l'usage saura vous 
en convaincre. 


BEGIN 
FOR I := 1 TO MAXIND DO 
IF TAB(I)1.GENRE=’C’ 


THEN 
CALC(I,1] := (RAD(TAB(IJ].ARGUL3]) 
-RAD(TAB(CIJ.ARGU(2]))/NP 
ELSE BEGIN 


CALCI(I,1]1:=(TABLI].ARGU(31-TAB(I].ARGU(1))/NP: 
CALCII,2]1:=(TABCI].ARGU(4]-TABLI)].ARGUI2])/NP 


END 
END; 


PROCEDURE NOUVEAU; 
VAR CAR :CHAR; 
1,2 :INTEGER; 
BEGIN 
WRITE(C’NOUVEAU FICHIER 
READ (CAR) ; 
1F CAR<>’0’ 
THEN EXIT(NOUVEAU) :; 
NAXIND := 1; 
WRITELN; 
IF EOLN THEN FEADLN: 
NP := NPDEF; PAGE(COUTPUT); 
WRITELN(’C :CERCLE’): 
WRITELN(’D :DROITE’); 
WRITELN(’N :SEPARATEUR"’): 
WRITELN(’F :FIN’); 
REPEAT 
REPEAT 
EFF(S) ;WRITEC’OPTION :’): 
READ (CAR) ; 
EFF(S); 
UNTIL CAR IN [’C’,’D’,’N’,’F’]; 
IF CAR=’C’ 
THEN BEGIN 
WRITEC’RAYON :’); 
READ(TAB[(MAXIND].ARGU(11); 
GOTOXY(O,5); 
WRITE(’ANGLE DEP,ARRIVEE 


=°2: 


22): 


READ (TAB [MAXIND] . ARGU[2]),TAB[MAXIND].ARGU(3J)): 


EFF(S); 
WRITE(”COORDONNEES DU CENTRE 


Nr 


READLN (TAB [MAXIND] . ARGU [4] ,TAB[MAXIND] . ARGUS] ); 


TAB[MAXINDI]I.GENRE := ’C’ 
END 
ELSE 
IF CAR = ‘D’ 
THEN BEGIN 
WRITE(’X1,Y1,X2,Y2 ue D 
READLN(TAB[IMAXIND].ARGUL1],TAB[IMAXIND)] 
TAB[MAXIND]J.ARGU(3),TAB(MAXIND] 
TABCMAXINDI.ARGUIS] := O: 
TABC(MAXINDIJI.GENRE := ‘D’ 
END 
ELSE BEGIN 
TAB(MAXIND]I.GENRE := 
FOR Z := 1 TO S DO 
TAB[MAXINDJ.ARGUIZ] := © 
END; 
IF CAR<>’F’ 
THEN BEGIN 
GOTOXY(O,6+MAXIND) : 
WRITE(TAB[MAXIND] .GENRE) :; 
FOR I := 1 TO 5 DO 
WRITECTRUNC(TABIMAXIND).ARGULI]):5); 
MAXIND := MAXIND + 1 
END 
UNTIL CAR=’F’: 
MAXIND := MAXIND -1 
END; 


PROCEDURE RAPPEL; 
VAR S,NON:STRING; 
NUM: INTEGER; 
BEGIN 
PAGE (COUTPUT) ; 
WRITEC’NOM DU FICHIER :’); 
READLN (NOM) ; 
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-ARGUI21, 
*-ARGUC4]); 
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IF NOM=’° 
THEN EXIT(RAPPEL); 


Les mystères de la ligne 


PAGE COUTPUT) ; 65535 
LECTURE (NOM) ; . : 
END; Vous avez dûs être très nombreux à 


avoir été intringués de voir apparaître 


PROCEDURE ECRIT; dans certains de nos programmes la 


VAR NOM:STRING; ligne 65535, ligne impossible à dé- 
MALTE NON DU FICHIER :’); HUE: ONE PROGINEEE Par PARAIESOIE 
READLN (NOM) ; ? refuse tout numéro de ligne supé- 
IF NOM=’’ THEN EXIT(ECRIT); rieur ou égal à 64000. Pourtant, on 
ECRITURE (NOM) ‘ peut se servir des lignes de numéro 
END: supérieur, qui apparaîtront au listing 
ü (mais, comme elles ne peuvent être 
PROCEDURE XY(J :INTEGER) ; atteintes par des GOTOs ou autres 
BEGIN GOSUBS, on y met souvent des 
IF TAB(J1.GENRE=’C’ REMs de copyright difficilement délé- 
THEN BEGIN biles). 


X := TAB(J]1.ARGU(4]+TAB(J].ARGU(1] 
*COS(POS[IJ,1]+RAD(TAB[J].ARGUL21)); 


R r une foi î 
YŸ := TAB(J]1.ARGU(S]J+TAB(JIJ1.ARGU(1) orpons pour une fois la magie et 


expliquons comment cela se réalise. 


* + + “+ . 
nu eee ne Guise le” rouine  FNDEIN 
Fe ($D61A) de l'Applesoft qui cherche 
ELSE BEGIN une ligne dans la mémoire de l'Ap- 
X := TAB(J)1.ARGU(11+POS(J,11; ple, ligne dont le numéro est contenu 
Y := TAB(JJ).ARGU(2)+PO0OS(J,2): dans les mémoires $50-51 (octet bas Ls. 
POS(J,1] := POS(J,1] + CALC(J,1];: en $50, octet haut en $51 comme Fe 
POS(J,21 := POS(J,2]1 + CALCCJ,2) d'habitude) et qui fournit l'adresse A 
END du début de cette ligne dans les mé- + 
END; moires $9B-9C (octet bas-octet haut Es 


bien sûr). Chaque ligne commence Les 


PROCEDURE DRAW; par l'adresse de la ligne suivante (2 Fe 


VAR I,J :INTEGER; octets) puis continue par son numéro : 
ras er (2 octets) avant de contenir la ligne “s 
BEGIN < g proprement dite et de se terminer Fa 
CALCUL; par un zéro. 5: 
FOR I := 1 TO MAXIND ia 
DO BEGIN Dès lors, tout est clair: voici #a 
POSII,1] := O; comment créer la ligne 65535 : 
POSII,2] := O : 
END: e créer cette ligne en lui donnant le 
EFF (22) ; numéro 63999 ($F9FF) , 
WRITEC/OVERLAY :”); . . 
READ (CAR) :EFF (22) ; © faire JCALL —151, puis : 
IF NOT (CAR IN (’O’,°N°1) *x 50:FF F9 N D61AG 9B.9C 
THEN EXIT(DRAW); 
1F CAR=’0’ e noter l'adresse affichée (octet bas- 
THEN GRAFMODE octet haut), y ajouter 2, et afficher 
ELSE INITTURTLE; l'octet contenu dont l'adresse est 
I = 1; le résultat, ainsi que le suivant : on 
FLAG := FALSE; trouve normalement ‘FF F9”: 
REPEAT 
PENCOLOR(NONE) ;XY (1); e remplacer avec le moniteur ‘FF 
MOVETO(ROUND(X) , ROUND(Y)D); FO”par, EFFET 


PENCOLOR(WHITE) ; 


FOR J s= 2 TO MAXIND Inversement, pour détruire la ligne 


DO BEGIN F : 
XYCJ); 65535, il suffit de : 
IF TAB(JI.GENRE<>"N” e détruire une ligne 63999 éven- 
THEN IF FLAG = FALSE tele. 
THEN MOVETOCROUND(X) ,ROUND(Y)) 
ELSE BEGIN e faire JCALL —151, puis: 
FLAG := FALSE; 
PENCOLOR (NONE ) : * SO:FF FFN D61AG 9B.9C 
SOVETUSROUNRER) ROPRRETE e ajouter 2 à l'adresse obtenue: on 
Sa ma KA doit y trouver FF FF qu'on rem- 
placera par FF F9; 
ELSE FLAG := TRUE e détruire la ligne 63999 ainsi obte- 
END; ‘nue. 
LIi21+1 
UNTIL I>NP+1; Bien sûr, on peut faire d'autre substi- 
WRITECCHR(7)); tutions entre numéros de lignes de la 
READLN (KEYBOARD) ; même manière grâce à FNDLIN. 
TEXTMODE 
END; Olivier Herz 
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Les joies du Profile... 


Apple France, c’est-à-dire Seedrin, a 
mis en oeuvre une politique 
commerciale qui, c'est le moins que 
l'on puisse dire, ne fait pas la joie de 
ses clients : même si un équipement 
se révèle déficient dès l'achat, il n'est 
pas remplacé mais réparé. Le client, 
qui a déjà payé, est privé de son 
équipement et voit en plus son 
temps de garantie réel diminué du 
temps de réparation. 


Pour les équipements standards, 
pour lesquels les revendeurs compé- 
tents peuvent effectuer la plupart des 
réparations, le client final ne s’aper- 
çoit en général de rien, le revendeur 
assurant le tampon. 


Par contre, le Profile ne peut à ce 
jour être réparé que par Seedrin. 
Voici ce qui est arrivé à une entre- 
prise de services que nous connais- 
sons bien. Elle a récemment vendu 
deux systèmes de gestion complets 
sur Apple /// avec deux Profiles dans 
chaque site. Aucun problème au ni- 
veau des logiciels développés pour la 
circonstance, qui donnent entière sa- 
tisfaction. Malheureusement, dans 
chacun des deux sites, l’un des Profi- 
les a, dès le début, connu des pro- 
blèmes. Le premier a été immobilisé 
deux semaines, après avoir provoqué 
deux destructions de fichiers: le 
client a failli faire un procès tellement 
tout cela l’a énervé. Dans le second 
site, le client est furieux lui aussi car 
on lui annonce un délai de répara- 
tion de deux à quatre semaines. 


Nous avons aussi entendu parler 
d’un pauvre acheteur de Profile dont 
le disque est déjà plusieurs fois 
tombé en panne. Outre les immobili- 
sations successives de son outil de 
travail, ce client ne peut plus avoir la 
moindre confiance dans un équipe- 
ment qu'on refuse de lui échanger 
bien qu'il ne soit manifestement pas 
fiable. 


Comment peut-on prétendre que 
l'Apple /// est un ordinateur de ges- 
tion si l’on n'est pas en mesure de 
faire un remplacement standard 
quand un disque dur fonctionne mal 
dès la livraison ou, pour le moins, de 
le réparer dans un délai raisonnable, 
donc inférieur à la semaine ? 


Nous encourageons donc Seedrin à 
agir pour améliorer le sort des pos- 
sesseurs de Profile, soit en acceptant 
enfin le principe d'un échange pour 
des équipements fondamentalement 
défectueux, soit en mettant au moins 
en oeuvre les moyens nécessaires 
pour effectuer rapidement les répara- 
tions éventuelles. Nous vous prévien- 
drons si le ciel s’éclaircit à ce sujet. 





# 
> 


PROCEDURE TABLE; 
VAR TT  :TEXT; 
NOM :STRING; 
FLAG : BOOLEAN ; 
1,J :INTEGER; 
BEGIN 
NOM := ’’; 


WRITEC/NOM DU FICHIER DE SORTIE : (#8:) ’); 


READLN (NOM) ; 
IF NOM=’’ THEN NOM := ’#8:’; 
REWRITE(TT, NOM); 
NP := NP * 3; 
CALCUL ; 
FOR I := 1 TO MAXIND DO 
IF TAB(IJ.GENRE=’C’ 


THEN POSII,1] := TAB[IJ].ARGU(2] 


ELSE BEGIN 


0; 
(o) 


I := 1;:FLAG := FALSE; 


WRITELN(TT,/M’,ROUND(X#12.321428), 
©” » ROUND(Y#13.612565)); 


FOR J := 2 TO MAXIND 
DO BEGIN 
XYCJ); 
IF TAB(JJ].GENRE <>’N’ 
THEN 
IF FLAG=FALSE 


THEN WRITELNCTT,’/D’,ROUND(X#12.321428), 


* ,” » ROUND(Y#13.612565)) 


ELSE BEGIN 
FLAG := FALSE; 


WRITELN(TT,’M’,ROUND(X#12.321428), 
*,  » ROUND(Y#13.612565)) 


END 
ELSE FLAG := TRUE 

END; 

I ï= I + 1: 
UNTIL I>NP+1; 
NP := NP DIV 3; 
CLOSE(TT, LOCK) ; 
WRITECCHR(7),CHR(7)): 
PAGE (OUTPUT) 

END; 


PROCEDURE LISTE; 
VAR I,J :INTEGER; 
BEGIN 
GOTOXY(O,0); 
FOR I := 1 TO MAXIND 
DO BEGIN 


WRITE(I:2,° :’,TAB[(1I]1.GENRE:3); 


FOR J := 1 TO 5 DO 


WRITE(ROUNDCTAB(IJ.ARGU(J1):5); 


WRITELN 
END; 
EFF(MAXIND) 
END; 


PROCEDURE MODIF; 
VAR NUMERO:INTEGER; 
CÂAR,RE:CHAR; 

I : INTEGER; 
VAL :REAL ; 
BEGIN 
EFF(21); 


WRITE(’INSTRUCTION A MODIFIER 


READLN (NUMERO) ; 


IF (NUMERO<1) OR CNUMERO>MAXIND) 


THEN EXIT(CMODIF); 
EFF(21); 
CAR := TAB(NUMERO] .GENRE; 
WRITEC’GENRE : (’,CAR,’) ’); 
READ(RE) ; 
IF NOTCEOLN(CINPUT)) 

THEN BEGIN 


“+ FEPPATTET 
PYET IL AXES 
RRSRERMIATELTE 
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READLN ; 
TAB [NUMERO] .GENRE := RE 
END 
ELSE TAB(NUMERO].GENRE := CAR; 
GOTOXY (0,23) ; 
WRITE(’<CR> ACCEPTE, <ESC> MODIFIE’); 
FOR I := 1 TO S 
DO BEGIN 
EFF (21); 
VAL := TAB[(NUMERO] . ARGUCI) ; 
WRITEC/VALEUR ”,1,’ : (’,ROUND(VAL) 
»’) )3READCRE) ; 
IF EOLNCINPUT) 
THEN BEGIN 
READLN; 
TAB (NUMERO . ARGULIJ := VAL 
END 
ELSE BEGIN 
GOTOXY (0,22); 
WRITE(’NOUVELLE VALEUR :°); 
READLN(VAL);EFF(22); 
TAB(NUMEROJ.ARGU(I) := VAL 
END 
END; 
EFF(21) 
END; 


PROCEDURE INSERT; 
VAR I1,J,2Z :INTEGER; 
CAR : CHAR; 
BEGIN 
GOTOXY(O,21); 
WRITE(’NUMERO APRES LEQUEL ON INSERE :°); 
READLN(J);EFF(21); 
WRITE(’/OPTION : <C>,<D>,<N> ’); 
READ (CAR) ; 
EFF(21); 
IF (J<1) OR (J>MAXIND) OR 
NOT (CAR IN [’C’,’D’,°N°J) 
THEN EXIT(INSERT); 
FOR I := MAXIND DOYWNTO J DO 
TAB(I+1] := TAB(I); 
MAXIND := MAXIND + 1; 
Jia J + 1: 
GOTOXY(O,21); 
IF CAR=’C’ 
THEN BEGIN 
WRITE(’RAYON :°); 
READ(TAB[IJJ.ARGUL1]1); 
EFF(21); 
WRITE(’ANGLE DEP,ARRIVEE :°); 
READLN(TAB[IJ]I.ARGUI2]1,TABLJ].ARGU (31); 
EFF(21); 
WRITE(’COORDONNEES DU CENTRE :°); 
READLN(TAB(J].ARGU(4],TAB(J].ARGU(S]); 
TABIJJ.GENRE := ’C’;EFF(21); 
END 
ELSE 
IF CAR = ‘D’ 
THEN BEGIN 
WRITE(’X1,Y1,X2,Y2 723 
READLN(TAB(J].ARGU(1)1,TABIJJ].ARGUC2), 
TAB(J].ARGU(3]),TAB(JJ].ARGU(41); 
TABLIJJ.ARGU(S] := ©; 
TABIJI.GENRE := ’D’;EFF(21) 
END 
ELSE BEGIN 
TABLJJ.GENRE := ’N’; 
FOR Z := 1 TO 5 DO 
TAB(JJ.ARGUIZ] := © 
END 
END; 


PROCEDURE DELETE; 

VAR I,J :INTEGER; 

BEGIN 
GOTOXY(O,21); 
WRITEC’NUMERO À ENLEVER :°); 
READLN(J); 
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que avait été totalement mis à zéro. 


Détruisez des disquettes 
avec vos logiciels! 


En travaillant avec Magicalc sur une 
disquette de fichiers quasiment pleine 
que je n'avais pas encore sauvegar- 
dée (autant pour moi!}, j'ai un beau 
jour découvert que les deux tiers des 
fichiers avaient disparu. Aucun 
moyen de les récupérer avec un pro- 
gramme normal de "RECONS- 
TRUCT VTOC”. Un second utilitaire 
m'a montré qu'un secteur du catalo- 


J'ai réussi enfin à tout récupérer 
grâce à un programme génial, le pro- 
gramme FCAT du logiciel ‘Bag of 
Tricks”. 





En en discutant avec d'autres spécia- 
listes, j'ai appris que ce problème de 
remise à zéro de secteur survenait 
parfois avec Visicalc, quand la dis- 
quette est pleine. D’autres logiciels 
aussi deviennent dangereux quand la 
disquette est trop pleine. Alors, mé- 





RRRRASENDE FER 
ARE NT TES 


fiez-vous, et achetez Bag of Tricks. 






En particulier, attention à PES s 
votre disquette est trop pleine ou, 


Edition de ï formule en 
Magicalc Sn ds. 


Dans certains cas, quand on essaye 
de mettre à jour avec ‘/E” une for- 
mule dans un tableau Magicalc, on a 
la surprise de voir la valeur résultant 


. de la formule apparaître en lieu et 


place de la formule. C’est en particu- 
lier le cas si, avant de faire "/E”, on 
commence à entrer un texte que l'on 
efface immédiatement après avec 
ESC ou DEL. Si l'on appuie alors 
par réflexe sur RETURN, la formule 
est perdue. 


La solution consiste, quand on 
s'aperçoit que la valeur apparaît au 
lieu de la formule, à faire CTRL-V 
pour sortir puis ‘/E” pour ré-éditer, 
enfin sans problème. Si cela ne mar- 
che toujours pas, recalculez avec ”!” 
avant l'édition. 


Hervé Thiriez 
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EFF(21); 
IF (CJ<1) OR CJ>MAXIND) 
THEN EXIT(DELETE) ; 
IF J=MAXIND 
THEN MAXIND := MAXIND - 1 
ELSE BEGIN 
FOR I := J TO MAXIND DO 
TABCIJ] := TAB(I+1]; 
MAXIND := MAXIND -1 
END 
END; 


PROCEDURE SWAP; 
VAR DEP,ARR,I :INTEGER; 
v REAL; 
BEGIN 
EFF(21); 
WRITELNC’<X>CHANGE” ); 
WRITE(’NUMERO DE DEPART :’); 
READLN (DEP) ; 
IF DEP=0 THEN EXIT(SWAP); 
EFF(22); 
WRITE(’NUMERO D’’ARRIVEE :’); 
READLN (ARR) ; 
EFF(22);EFF(21); 
FOR I := DEP TO ARR DO 
CASE TAB[IJ].GENRE OF 
‘D’ :BEGIN 
V := TAB[(I].ARGU(3)]; 


TAB(I).ARGU(3]) := TAB(I].ARGU(1); 


TABCIJ.ARGULI1) := V; 
V ï= TABLIJ].ARGU(4]; 


TAB(IJ].ARGU(4] := TAB(I].ARGUI2]; 


TABLI].ARGU(2]) := 
END; 
*C*’:BEGIN 
V := TAB(IJ].ARGU(C3]; 


TABCIJ.ARGU(S3]) := TAB(IJ].ARGU(2]; 


TABCIJ.ARGUI21 := V 
END 
END 
END; 


PROCEDURE EDIT; 
VAR CAR:CHAR; 
BEGIN 
CAR := ’T’; 
REPEAT 


IF CAR IN [’T’,’X°,’M°,’1°,°S°,°W°]1 


THEN LISTE; 
GOTOXY (0,22); 


WRITELN(”’<M>ODIF,<I>NSERT, <S>UPPR 
WRITE(C’<N>PTS ,<D>RAW  ,<X>CHANG 


READ(KEYBOARD, CAR) ; 
EFF(22);EFF(23); 
CASE CAR OF 
*N’:BEGIN 
GOTOXY(O,21); 


WRITE(’NOMBRE DE POINTS 


READLN (NP) ; 
EFF(21) 
END; 
*X°:SWAP; 
*M°:MODIF; 
I’ :INSERT:; 
*S’ :DELETE; 
‘D’ :DRAW; 
*W°:TABLE 
END 
UNTIL CAR=’F’ 
END; 


PROCEDURE FUSION; 


» SW>ATANABE” ) ; 


VAR NOM,NOM2 :STRING; 


FLAG : BOOLEAN; 
F1 ,F2 :FILE OF CLOUS; 
1,J :INTEGER; 
CAR : CHAR; 
BEGIN 


WRITEC’NOM DU FICHIER DE SORTIE :°); 
READLN (NOM) ; 

REWRITE(F1, NOM) ; 

GOTOXY (0,23); 

WRITE(’<CR> POUR ARRET’); 
GOTOXY(O,2); 

FLAG := FALSE; 

REPEAT 


WRITE(’NOM DU FICHIER A INCLURE :’); 


READLN (NOM2) ; 
IF NOM2<>’° 
THEN BEGIN 
IF FLAG=FALSE 
THEN FLAG := TRUE 
ELSE BEGIN 
F1*.GENRE := ’N’; 
FOR I := 1 TO 5 DO 
F1*.ARGU[II]) := ©; 
PUT(F1) 
END; 
LECTURE (NOM2) ; 
IF IORESULT<>0 
THEN EXIT(FUSION); 
FOR I := 1 TO MAXIND DO 
BEGIN 
F1 := TAB (I); 
PUT(F1) 
END 
END 
UNTIL NOM2 = ‘’; 
CLOSE(F1,LOCK) ; 
WRITEC’ON LIT LE FICHIER ‘’,NOM,’ :’); 
READ (CAR) ; 
IF CAR=’0” 
THEN LECTURE (NOM) 


END; 


BEGIN 


NP := NPDEF; 
MAXIND := O; 
REPEAT 

PAGE (OUTPUT) ; 


WRITELN(’’:11,’PROGRAMME DE CLOUS’); 
WRITELN(C’’:11,"  <C> N.MONSARRAT ’); 


GOTOXY (0,8); 
WRITELN(C’OPTIONS :°); 
WRITELN; 

WRITELN(’<N>OUVEAU DESSIN’); 


WRITELN(’<E>DITION DU DESSIN ACTUEL’); 


WRITELN(’<L>OAD'’); 
WRITELN(’<S>AVE"’); 
WRITELN(’<M>ELANGE DE FICHIERS’); 
WRITELN(C’<F>IN’); 
READ (OPTION); 
PAGE (OUTPUT) ; 
CASE OPTION OF 
*E’° EDIT; 
N° :NOUVEAU; 
‘L’ :RAPPEL; 
*S’:ECRIT; 
*M°: FUSION 
END 
UNTIL OPTION = ’F’; 


PAGE (OUTPUT) 
END. 





suite de la page 28 


EDIT traite exclusivement les fichiers 
TEXT. Tout fichier BASIC (de nom 
NF par exemple) est donc recopié 
dans un fichier TEXT (de nom 
TEXT<NF>) sur lequel s'effectue 
l'édition. Tout fichier TEXT est traité 
directement. 


En fin d'édition : 
— la commande F sans paramètre 


entraîne la mise à jour du fichier 
initial ; 


— la commande F comportant un 
nom de fichier crée un fichier du 
nom donné, de même type que le 
fichier initial, ce dernier étant in- 
changé. 


Modification de l’éditeur 


Pour que l'éditeur sache transformer 
un fichier TEXT en un programme 
BASIC, il faut lui apporter un certain 
nombre de modifications : 


— ajouter les lignes 106, 5610 à 
5640 et 9905 ; 

— modifier les lignes 5510 à 5600 et 
9900. 


Sur la disquette d'accompagnement, 
le fichier PATCH.EDIT contient ces 
modifications. La mise à jour du fi- 
chier PROGR.EDIT peut alors se 
faire par : 


LOAD PROGR.EDIT 
EXEC PATCH.EDIT 
SAVE PROGR.EDIT 
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Edition des fichiers BASIC 


Gérard Hisleur 


Le programme INIT.EDIT, associé à 
quelques modifications de mon édi- 
teur-compositeur de texte publié 
dans le Pom's 9, permet un traite- 
ment nettement amélioré des pro- 
grammes BASIC : leur transformation 
en un fichier TEXT, sur lequel peut 
s'effectuer l'édition, ainsi que la 
transformation inverse en programme 
BASIC sont rendues entièrement au- 
tomatiques. 


RUN INIT.EDIT 


La mise en route est réalisée par : 
BRUN PROGR48K 


Le fichier EDIT contient ces deux 
commandes et le lancement peut 
donc se faire par EXEC EDIT. 


La première information à fournir au 
programme INIT.EDIT est le nom du 


fichier à éditer (éventuellement suivi 
de ”,Di”). Le nom ”?” provoque l'af- 
fichage du catalogue de la disquette. 


Lorsque le fichier donné n'existe pas 
sur le support, INIT.EDIT demande 
son type afin de le créer. Tout type 
autre que À (programme BASIC Ap- 
plesoft) ou T (fichier TEXT) est re- 
jeté. 
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Programme INIT.EDIT 


10 HOME 
20 AS = 


5N = 105: DIM ASCN)D:NDS = “,D1" 
“300:38 48 84 FD AO OO 91 FE E6 FE DO 
02 E6 FF 68 A4 FD 60 A9 AO 60 N D823G 
“: FOR I = 1 TO LEN (AS): POKE 511 + 
I, ASC ( MIDS (AS,1I,1)) + 128: NEXT : 


POKE 72,0: CALL - 144 

30 AS = "“": FOR I = 1 TO 19:48 = AS + * “? NE 
XT : FOR I = N TO 1 STEP - 1:AS(I) = 
AS + AS: NEXT :AS(O) = AS + "“":A = PE 
EK (107) + PEEK (108) * 256 + 8: POKE 


254, PEEK (AY: 
40 INVERSE : 


POKE 255, PEEK (A + 1) 
PRINT “NOM DU FICHIER A EDITER 


:"33 NORMAL : & INPUT NS: IF LEN (NS 
> = © THEN 40 

SO N1$ = NS: IF LEN (NS) < 4 THEN 70 

6O IF MIDS (NS, LEN (NS) - 2,2) = “",D* THEN 
NDS = RIGHTS (NS,3):N1$ = LEFTS (NS 
» LEN (NS) - 3) 

70 N2$ = “": FOR I = 1 TO LEN (N1S):N2s = N2 
$ + CHRS ( ASC ( MIDS (N1$,1,1)) + 12 
8): NEXT : FOR I = LEN (N2$) + 1 TO 3 
O:N2$ = N2$ + CHRS (160): NEXT 

80 D$ = CHRS (4): PRINT DS'"NOMON 


CIO": POKE 54,0: POKE 55,3: POKE 56,18 
: POKE 57,3: CALL 1002: PRINT DS"CATAL 
0G,"NDS: PRINT DS$“PR#O"*: PRINT DS"IN#O 


“23 IF N1$ < > “?" THEN 110 

30 J = O: FOR I = 1 TO N: IF MIDS CASCI),2,1 
2 < > * * THEN PRINT LEFTS CAS(I),3 
>; MIDS (AS(I),8,17);:J = J + 1: IF J 
= 42 THEN GET C$#:J = O 

100 NEXT : PRINT : PRINT : GOTO 20 

110 FOR I = 1 TO N: IF MIDs CAS(I),8,30) = 
N2$ THEN 170 

120 NEXT 

130 NW = 1: INVERSE : PRINT “NOUVEAU FICHIER" 
: NORMAL 

140 PRINT : INVERSE : PRINT "T";: NORMAL : P 
RINT “CTEXTE) OÙ “;: INVERSE : PRINT “ 
A";: NORMAL : PRINT “(BASIC APPLESOFT) 
?2";: GET T$: PRINT Ts 

150 IF T# < > “T" AND TS < > "A" THEN 140 

160 GOTO 210 

170 TS = CHRS ( ASC ( MIDS CAS(I),2,1)) - 12 
8): PRINT "TYPE “;: INVERSE : PRINT Ts 
3: NORMAL : PRINT * ":; 

180 IF TS < > “T* AND TS < > “A* THEN  INV 
ERSE : PRINT "ERREUR": NORMAL : END 

130 PRINT : PRINT : IF LEFTS CASCI),1) = C 
HR$ (170) THEN INVERSE : PRINT “FICHI 
ER PROTEGE": NORMAL : PRINT 

200 NW = © 

210 LS = "TEXT<" + N1S + “>":L1S = LS + NDS: 
ONERR GOTO 230 

220 PRINT D$;"DELETE CHAIN.EDIT,D1"* 

230 ONERR GOTO 250 
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240 
250 


260 
270 


280 


290 
300 


310 


320 
330 


IF TS = “A“ THEN PRINT D$;"DELETE":L1S 

POKE 216,0: PRINT DS;"OPEN CHAIN.EDIT,D1 

PRINT DS$;"WRITE CHAIN.EDIT" 

IF TS = "T" THEN L1$ = N1$ + ND$: GOTO 3 
30 

IF NW = 1 THEN 330 

PRINT “LOAD";NS$;: NDS 

GS = CHRS (34) :0PS$ = "? DS" + GS + "OPEN 

" + L18 + GS:WRS = "2? DS" + GS + "WRIT 
E" + LS + GS:CLS = “? DS“ + GS + "CLOS 
E" + LS + GS 

PRINT “63999 D$=CHRS(4):" + OPS + “:" + 
WRS + "“:"* + "POKE 33,30:LIST ,63998:" 
+ CLS + “:TEXT:END" 

PRINT “RUN 63999" 

PRINT “RUN PROGR.EDIT,D1": PRINT Lis: PR 


INT DS; "CLOSE CHAIN.EDIT": 
XEC CHAIN.EDIT" 


PRINT D$;"E 


Programme PATCH.EDIT 


106 


5510 


5520 
5530 
S540 
5550 
S560 


5570 
5580 


55930 
5600 


S610 
S620 


S630 
S640 


3300 


9305 


VTAB 22: INVERSE : PRINT “NOM DU FICHIER 
À EDITER?";: NORMAL : PRINT NAS . 
IB = O: IF LEN (NAS) > 6 THEN IF LEFT 
$ CNAS$,S) = “TEXT<" AND RIGHTS (NAS,1 
) = ">" THEN IB = 1:NAS$ = MIDS CNAS,6 
» LEN (NAS) - 6) 
NBS = NAS: IF LEN (AS) > 1 THEN NAS = 


RIGHTS (AS, LEN (AS) - 1) 
ONERR GOTO 5550 
PRINT D$;"DELETE TEMPO"; NDS 
POKE 216,0: PRINT DS$;"OPEN TEMPO" 
IS = O: PRINT D$;"WRITE TEMPO": IF IB > 
O THEN PRINT "NEW" 
IF TNCIS) = IMAX THEN 5590 
PRINT SOURCES(TN(IS))D:1IS = 
5570 
IF IB > © THEN 5630 
PRINT DS$;"CLOSE TEMPO": 
[e] 
PRINT D$;"DELETE"; NAS 
POKE 216,0: PRINT D$:"RENAME TEMPO, *";NA 
$: END 
IF NAS = NBS THEN 


TNCIS): GOTO 


ONERR GOTO 562 


PRINT “DELETE"; NAS 
PRINT “SAVE";NAS: PRINT "DELETE TEXT<"; 
NBS;">": PRINT “DELETE TEMPO“: PRINT D 
$;"CLOSE TEMPO": PRINT D$;"EXEC TEMPO" 
: END 
PRINT : PRINT TAB( 6);"FIN DE L’EDITIO 
N°: PRINT : INVERSE : PRINT “F*:: NORM 
AL : PRINT TAB(C 6); "UTILISATION DU FI 
CHIER INITIAL‘“: PRINT TAB( 6); "POUR L 
À SAUVEGARDE." 
PRINT : INVERSE : PRINT “F NF“;:: NORMAL 
: PRINT TABC 6); "UTILISATION DU FICH 
IER DE NOM": PRINT TAB( 6);"NF POUR 
LA SAUVEGARDE.*: GOTO 200 
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CX Système est un ensemble de pro- 
grammes conçu pour répondre à 
tous les problèmes (ou presque) que 
peuvent rencontrer une PME ou une 
PMI dans leur gestion. Il se présente 
sous forme d'une famille de logiciels 
parfaitement modulaires : le premier, 
CX Base 100, permet de gérer un fi- 
chier (création, mise à jour, classe- 
ment, calculs...) et d'imprimer des 
états et des étiquettes; la gestion mul- 
tifichiers, elle, est permise par la ver- 
sion avancée CX Base 200, qui re- 
prend toutes les fonctions de CX 
Base 100 pour le travail sur deux fi- 
chiers simultanément et offre des 
possibilités supérieures dans le traite- 
ment et le stockage des données. Un 
complément de programme permet 
de passer de CX Base 100 à CX 
Base 200. La famille ne serait pas 
complète sans CX Texte, un pro- 
gramme de traitement de texte ac- 
cessible à partir de CX Base 200. 


Pour ce banc d'essai, nous avons pu 
disposer de la version la plus évoluée 
du système, CX Base 200 + CX 
Texte. Nous l'avons testé sur un 
Apple //e (64 K sont nécessaires pour 
le fonctionnement du programme) 
équipé de deux lecteurs de disquet- 
tes. CX Base 200 peut gérer jusqu'à 
quatre lecteurs de disquettes, soit 
quatre fichiers simultanément. Pour 


CX Système à l'essai 


sembleur et réside, pour la plus 
grande partie, en mémoire centrale. 
Cela lui confère une grande rapidité 
d'exécution. Les temps d'accès à la 
disquette et de recherche d'un dos- 
sier sont très acceptables et la durée 
des classements est à peine supé- 
rieure. Il en résulte un confort d’utili- 
sation non négligeable. 


Un dossier peut contenir jusqu'à 
1600 caractères répartis en 55 rubri- 
ques et 47 lignes de notes. Dans ce 
cas extrême, on ne pourra enregistrer 
que 200 dossiers sur une disquette. 
Pour des dossiers moins importants, 
on pourra en stocker jusqu'à 2000 
sur une même disquette (la longueur 
des dossiers est variable, de manière 
à optimiser l'occupation de la dis- 
quette). À ce propos, un utilitaire 
permet d'évaluer la place encore dis- 
ponible sur une disquette en nombre 
de dossiers en se fondant sur la taille 
moyenne des dossiers déjà existants. 


Une dominante de l'emploi de CX 


François Renault 


che un nom dont l'orthographe est 
mal connue. Un autre moyen nous 
est proposé pour résoudre ce genre 
de problèmes : si l'on ignore la na- 
ture d'un caractère dans un nom, il 
est possible de le remplacer par un 
blanc. Tout caractère peut alors rem- 
placer ce blanc. Il est possible de re- 
tenir jusqu'à 12 critères de sélection 
simultanément. Si cela ne suffit pas, 
il est possible de mémoriser le résul- 
tat de cette première sélection pour y 
effectuer une seconde sélection. 
Cette opération peut être répétée au- 
tant de fois que voulu mais, dans la 
pratique, je doute que cela arrive fré- 
quemment. 


Les opérations de sélection et de 
classement font partie des traite- 
ments. Il est possible d'établir des 
dossiers contenant des instructions 
pour des traitements à opérer sur 
l'ensemble du fichier gestion. Ces 
dossiers sont gérés exactement de la 
même manière que les dossiers ges- 
tion ou les dossiers textes, dont nous 
parlerons plus loin. Cette unicité 





de plus grandes applications, il peut Bac est la souplesse. Il est possible dans le traitement des fichiers rend 
travailler avec un lecteur de d t à 
e disquet- utiliser 4 types de formats de varia- des services appréciables à l'usage. 
tes (pour le chargement du pro- ble: 
gramme et éventuellement la gestion Signalons pour mémoire l'existence 
d'un fichier) et tout support de mé- e numérique, qui accepte les nom- de fiches annexes, qui permettent de 
que, q 
moire grande capacité compatible Put relier à un dos ] 
DOS 3.3 (disque dur en particulier) bres décimaux selon le mode fran- L ossier principal un où 
. çais (avec une virgule) ou anglo- plusieurs dossiers appartenant à un 
CX Base 200 est l'héritier direct de REPOS défini con nt Lt 
200 e éfinir un dossier principal contenan 
CX de ils ae on trouvera e alphanumérique ; les données d’un article et des fiches 
une analyse dans le Pom's 5. Il | : 
gardé jee ualités  . Detians ® date, qui reconnaît une date sous eee ee . de (achat, 
q es al les formes les plus variées (13 correspondant à cet article (achat, 
défauts. Heureusement, des amélio- N vente, combien, à qui, à quel 
rations notables viennent pallier en Nan de ie ne Fe prix..…). 
artie ces faiblesses. ’ , es 
P ds etc.) et la vérifie (il sait ce qu'est _. | | 
or . une année bissextile) : Enfin, il existe une option de blo- 
CX Texte est intimement lié à CX cage, qui permet d'interdire certaines 
Base 200 : on n'y accède qu'après e stock, qui est en fait un format de fonctions comme la création d’un 
avoir chargé le programme CX Base. type numérique ne conservant nouveau dossier ou la modification 
Le traitement de texte édite des que des cumuls (comme le fait la d'anciens dossiers à qui ne connaît 
2: ue Pi nr te cui Les additive d’une calcu- pas le code défini lors du blocage par 
autant de dossiers et donc traités ette). l'utilisateur. Il est aussi possible d’uti- 
comme tels par CX Base. L'avantage liser cette instruction sans utiliser de 
ce programme est de permettre tn re se one code, ce qui permet de se protéger 
y insérer, conditionnellement si on iérents modes de Sélection. Un des fausses manoeuvres. 
le désire, des données contenues peut effectuer celles-ci par égalité, 
dans les dossiers gérés par CX Base. différence, en indiquant des limites 
ou encore par analogie ou mot-clé. 
Ce dernier mode permet de recher- . mais aussi de certains de 
ue cher dans une rubrique ou dans l’en- défaut 
CX Base 200 : l’héritier semble du dossier une suite de ca- ses delauts 
de CX Muiltigestion ractères. Si cette chaîne contient plus 
g de 4 caractères, la recherche s’effec- Une grande partie du travail sur CX 
Hériti 1x, tuera par analogie, c'est-à-dire que Base consiste à rentrer des données 
éritier de ses qualités. sera sélectionnée la rubrique conte- dans des rubriques placées les unes 
nant une suite ressemblant à la suite en-dessous des autres. On passe de 
CX Base 200, tout comme CX Multi- donnée. Cette possibilité est particu- l’une à la suivante en tapant sur RE- 
gestion, est entièrement écrit en as- lièrement pratique quand on recher- TURN. Par contre, le retour à la ru- 
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brique précédente est impossible. 
Pour revenir en arrière, il faut 
d'abord remonter tout en haut de la 
fiche courante puis redescendre, par 
un nombre approprié de RETURN. 
à la rubrique visée. Ce manque de 
souplesse est d'autant plus contrai- 
gnant que l'on est souvent appelé à 
remonter d’une rubrique ou plus, no- 
tamment à la suite d'erreurs de rubri- 
ques ou de frappe toujours possibles 
lorsque l'on enregistre beaucoup de 
fiches d'affilée (travail fastidieux s'il 
en est, même si des procédures d’en- 
registrement rapide nous sont offertes 
par le logiciel). De plus, si l'on fait 
une erreur dans une rubrique définie 
selon le format Date” (une date im- 
possible, par exemple), le curseur 
passe à la rubrique suivante au lieu 
de nous ramener au début de la ru- 
brique “Date”, comme on aurait pu 
s y attendre. Cette incohérence, ajou- 
tée à la non-possibilité de remonter 
d'une rubrique en arrière, est surpre- 
nante dans un programme qui par 
ailleurs possède des qualités indénia- 
bles. 


Nous avons été aussi surpris par les 
faiblesses dans la visualisation du ré- 
sultat d'un traitement, Quand on ef- 
fectue un traitement (classement, sé- 
lection), on peut définir jusqu'à 6 
rubriques qui seront affichées lors de 
la visualisation à l'écran du résultat. 
Cet affichage peut se dérouler soit 
d'une traite (défilement des rubriques 
sélectionnées), soit dossier par dos- 
sier (les seules rubriques du dossier 
courant sont affichées: celles du dos- 
sier suivant n'apparaîtront qu'après 
enfoncement de la touche RETURN). 
Dans ce dernier cas, il est possible 
d'accéder au dossier courant par sim- 
ple action sur la touche ESC. Une 
lecture de la fiche entière est alors 
possible, sans être limitée äux 6 ru- 
briques choisies lors de la définition 
du traitement. Malheureusement, et 
cela apparaît très vite gênant. il n'est 
pas possible de revenir à l'endroit où 
l'on avait interrompu la visualisation 
pas à pas du résultat du traitement. 
Toute sortie de la visualisation pas à 
pas nous oblige à la reprendre 
depuis le début. 


D'autre part, l'affichage de 6 rubri- 
ques impose de limiter à 12 caractè- 
res les zones d'écran dans lesquelles 
le contenu de chacune des rubriques 
apparaît. Quand une rubrique dé- 
passe 12 caractères, elle est tron- 
quée, mais aucun indicateur de dé- 
passement ne vient nous prévenir de 
cet état de fait, ce qui n’est pas sans 
poser quelques problèmes dans le 
cas de noms propres, pour lesquels il 
est souvent difficile d'établir s'ils sont 
intacts ou non. 


Il est possible de définir jusqu'à 18 
formules de calcul pour un dossier 


de gestion. Ces calculs portent sur les 
rubriques numériques du dossier et 
sont effectués à l’initiative de l’utilisa- 
teur. La présence de telles possibilités 
est normale dans un logiciel de ges- 
tion de base de données. Le pro- 
blème, dans CX Base, est la faiblesse 
des calculs. En effet, les formules, 
d’une longueur maximum de 25 ca- 
ractères, n'admettent qu'un niveau 
de parenthèses et ne respectent pas 
l'ordre de priorité des opérations. Les 
formules sont exécutées de la gauche 
vers la droite, opération après opéra- 
tion. 


Cela signifie que ’A=B+C/100” est 
équivalent à ’A=(B+C)/100" et non 
à ‘A=B+(C/100)” comme l'exigerait 
l'ordre classique de priorité des opé- 
rations. L'absence de priorité dans 
les opérations et l'impossibilité d’im- 
briquer des parenthèses limitent 
considérablement les possibilités de 
calcul. D'autre part, tout comme 
dans CX Multigestion, tous les nom- 
bres sont limités à deux décimales, 
en arrondissant au plus près. Pour 
des calculs faisant appel à une plus 
grande précision, il faut représenter 
les nombres sous forme de fraction 
de dix, cent ou mille (12.345 s’écrira 
123.45 / 10), ce qui réduit encore un 
nombre de caractères souvent trop 
juste (la simple variable désignant 
une rubrique consomme déjà deux 
caractères). 


Dans son article sur CX Muitigestion, 
Hervé Thiriez signalait que la nou- 
velle version de CX permettrait de 
mémoriser les paramètres de réglage 
sur la disquette fichier et non sur la 
disquette programme. Ces paramè- 
tres définissent le format, les caractè- 
res, le nombre de lignes par page et 
autres données relatives à l'impri- 
mante, ainsi que les diverses possibi- 
lités de branchement des périphéri- 
ques (les lecteurs de disquettes ou 
l'imprimante). Apparemment, cela 
n'a pas encore été fait, car ces para- 
mètres sont toujours stockés sur la 
disquette programme. Il est donc im- 
possible de protéger cette disquette 
contre l'écriture et la disquette, plus 
souvent sollicitée, connaît une usure 
plus rapide (la disquette programme 
est protégée contre la copie et une 
disquette de sauvegarde vous coû- 
tera 250 F). 


Les ”’plus” de 
CX Base 200 


En bonne justice, il faut reconnaître 
que les auteurs de CX Base ont 
néanmoins amélioré les possibilités 
de réglage : le programme permet de 
mémoriser deux jeux de paramètres. 
Il est maintenant possible d'utiliser al- 
ternativement deux imprimantes sans 
modifier aucun des paramètres. 





Une série de petites améliorations 
aux fonctions de recherche et de sé- 
lection de CX Muiltigestion ont été 
apportées dans CX Base. Il est main- 
tenant possible de rechercher un 
dossier en n'indiquant qu’une seule 
des deux clés d'accès et/ou en effec- 
tuant, par une clé d'accès, la recher- 
che par analogie décrite plus haut. 
D'autre part, il est possible de classer 
en une seule opération plus de dos- 
siers qu'avant. On passe de 500 
fiches sur 3 caractères (CX Muitiges- 
tion) à 750 (CX Base), toujours sur 3 
caractères. 


Mais ce qui nous a particulièrement 
séduit dans CX Base 200, c'est la 
possibilité offerte par le logiciel de 
programmer des choix. CX nous au- 
torise en effet à écrire des program- 
mes d’au plus 17 pas (cela suffit lar- 
gement) à partir des opérations 
élémentaires proposées par le menu 
Gestion. Un programme est une 
combinaison de Recherche”, ”Enre- 
gistrement”, “Calculs”, Accès dos- 
sier”, etc, qui permet d'effectuer des 
traitements complexes qu'il serait fas- 
tidieux de réaliser soi-même, instruc- 
tion par instruction. La programma- 
tion est simple à faire et les 
programmes, écrits en général pour 
la gestion d'un fichier particulier, sont 
mémorisés sur la disquette contenant 
le fichier concerné. Dès que le fichier 
est en traitement, les programmes 
sont disponibles à partir du menu de 
gestion. On peut disposer de 6 pro- 
grammes simultanément. 


Une autre originalité de CX Base 
nous à beaucoup plu, en ce sens 
qu'elle permet d'adapter le logiciel à 
l'utilisateur et non l'inverse : les tou- 
ches de contrôle permettant de se 
déplacer dans CX sont aisément mo- 
difiables. Il suffit pour cela d'indiquer 
pour chaque fonction la valeur ASCII 
de la nouvelle touche. Cette modifi- 
cation étant effectuée dans le dossier 
réglages qui, je le rappelle, est enre- 
gistré sur la disquette programme, les 
nouvelles touches de fonction entrent 
en vigueur à chaque utilisation du lo- 
giciel. Chaque utilisateur peut ainsi 
définir son propre jeu de comman- 
des. 


Ce souci de flexibilité et de souplesse 
est tout à l'honneur des concepteurs. 


Le complément : 
CX Texte 


CX Texte est un logiciel de traite- 
ment de textes très honnête qui a la 
particularité de gérer ses textes 
comme des dossiers. Il utilise pour 
cela les mêmes menus que CX Base 
et permet de définir des modèles de 
textes à l'instar des modèles de dos- 
sier de CX Base. Tous ces dossiers 
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textes peuvent être reliés les uns aux 
autres par des chaînages où des in- 
sertions, dont la succession peut être 
programmée et mémorisée. Evidem- 
ment, CX Texte autorise la gestion 
totale de la mise en page et de la 
présentation (justification à droite) 
pour la sortie des textes sur impri- 
mante. 


Le principal intérêt de CX Texte est 
sa liaison avec CX Base. En effet, les 
textes de CX Texte peuvent être 
complétés ou modifiés par le contenu 
de rubriques de dossiers gérés par 
CX Base. Il est possible d'insérer 
dans le texte des rubriques, des to- 
taux ou des dates trouvés dans les 
dossiers de gestion. Chaque modèle 
de lettre possède sur une page de 
garde les références des rubriques 
qu'il doit reproduire dans le corps du 
texte. Le logiciel va même plus loin 
en proposant la modification du dé- 
roulement du texte en fonction du 
contenu de rubriques d’un dossier de 
gestion (des parties entières du texte 
apparaîtront ou non selon le résultat 
d'un test sur des rubriques). L'édition 
de lettres personnalisées, le tirage 
d'un mailing, l'établissement de fac- 
tures ou de fiches de paie ou même 


Apple //e 


la rédaction d'un rapport sont ainsi 
facilement réalisables. 


La documentation 


La documentation se présente sous 
la forme d'un petit classeur. Sa ré- 
daction est claire et l'approche péda- 
gogique : on accède à la maîtrise de 
CX Base en suivant des leçons por- 
tant chacune sur un thème précis. Ce 
“cours” d'utilisation est suivi d’un ré- 
pertoire alphabétique détaillant cha- 
que commande. La dénomination 
des commandes étant suffisamment 
évocante, il suffit de consulter la liste 
des commandes pour trouver celle 
qui conviendra au traitement recher- 
ché. On trouve en annexe un recen- 
sement de'tous les messages d'er- 
reurs possibles avec, pour chacun 
d’entre eux, la conduite à tenir en un 
tel cas. La documentation de CX 
Texte se présente sous la même 
forme, avec en plus une fiche aide- 
mémoire regroupant tous les codes 
utilisés dans le traitement de texte. 


Conclusion 


Malgré quelques défauts surprenants 
dans ce logiciel par ailleurs très per- 


Apple /// 


leurs interfaces, 


leurs périphériques, 


leurs logiciels 


Librairie spécialisée Apple 


db m.b.d.c. 


172, rue Solférino - 59800 LILLE TÉL. (20) 57.91.87 


formant, CX Système nous a laissé 
une impression très favorable. Après 
une période d'apprentissage de l’or- 
dre de la journée (le temps de pren- 
dre connaissance de toutes les possi- 
bilités de ce programme !), toute 
personne, même non informati- 
cienne, pourra utiliser aisément une 
grande partie des capacités du logi- 
ciel. La rapidité et la sécurité de 
fonctionnement, alliées à la possibilité 
d'adapter au système des supports 
magnétiques de grande capacité, en 
font un outil de travail privilégié pour 
les PME ou PMI, qui constituent en 
fait le marché visé par la société 
conceptrice de CX Système. 


Adresse : Contrôle X - Tour Maine 
Montparnasse - 33 avenue de Maine 
- 75755 Paris. 


De nombreuses boutiques micro ven- 
dent aussi les programmes de 
Contrôle X. 


Prix hors taxes 


CX Base 100 : 1930 F. 
CX Base 200 : 2770 F. 
CX Texte : 1000 F. 

CX 200 + Texte : 3360 F. 








L'ordinateur personnel 


concessionnaire agréé APPLE - S.A.V. sur place 


ouvert du mardi au samedi de 9h30 à 12h et de 14h30 à 19h 
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L'ORDINATEUR 
sélectionnés parmi INDIVIDUEL 


les meilleurs publiés dans 


En cinq ans L'ORDINATEUR INDIVIDUEL a publié des centaines de programmes dans 
les domaines les plus divers: gestion, enseignement, jeux, arts graphique et musical, mathématiques, etc. 


Voici un numéro spécial dans lequel ont été regroupés 50 des meilleurs programmes déjà parus 


dans L'ORDINATEUR INDIVIDUEL ainsi que la méthode pour 
les adapter sur la plupart des ordinateurs. 


à partir du 10 décembre 1983 
35 FF chez votre marchand de journaux 


Pour recevoir ce numéro dès sa parution, il vous suffit d'envoyer vos nom et adresse ainsi qu'un chèque de 35 FF* à 
L'ORDINATEUR INDIVIDUEL (spécial programmes), 39 rue de la Grange-aux-Belles, 75484 Paris cedex 10 


* Etranger 40 FF. Une réduction de 5 FF est accordée aux abonnés sur envoi de la dernière étiquette d'expédition. 





Suppression de fin de programme 


Dans le Pom's 8, Hervé Thiriez vous 
donnait quelques indications sur la 
façon d'accélérer vos programmes 
BASIC et, en particulier, sur le type 
de structure à adopter. C'est ainsi 
qu'il vous recommandait de placer 
en fin de programme toutes les opé- 
rations correspondant à la phase 
d'initialisation des traitements (lecture 
de tables de références, de tableaux 
de DATA, entrée de paramètres..). 


Il est possible de tirer un autre parti 
de cette structure de programme, au 
niveau de l’utilisation de la place mé- 
moire et c'est ce que cet article se 
propose de vous offrir. 


En effet, par définition, les travaux 
d'initialisation s'effectuent générale- 
ment une et une seule fois au début 
du programme. Compte tenu de la 
taille de la mémoire centrale de l'Ap- 
ple, il peut donc s'avérer utile de ré- 
cupérer la place occupée par les ins- 
tructions de cette initialisation qui 
empiètent ensuite sans raison sur la 
capacité disponible pour les autres 
traitements. 


Pour ce faire, il suffit de déplacer la 
fin du programme pour la mettre 
juste après la dernière instruction 
utile”, de modifier les différents 
pointeurs liés aux variables créées au 
cours de l'initialisation et de déplacer 
également en conséquence les varia- 
bles ou descriptifs de variables 
concernés. Cet ensemble de manipu- 
lations est assuré par la routine en 
assembleur listée plus loin. 


Avant d'apporter quelques précisions 
sur cette routine, examinons un ins- 
tant le programme de démonstration 
donné ci-après qui nous éclairera sur 
son mode d'emploi. 


La phase d'initialisation débute à la 
ligne 1000 et c'est par elle que l'on 
commence l'exécution, après charge- 
ment de la routine MOVE. La ligne 
100 permet de transmettre à cette 
dernière le numéro de la dernière 
ligne que l’on désire conserver, 1030 
en l'occurence. À l'issue du CALL 
768, les lignes 1040 à 1080 auront 
disparu. 
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Il est nécessaire de faire ici une dlis- 
tinction en ce qui concerne les DATA 
entre les données numériques et les 
données alphanumériques. Pour une 
variable ou un tableau numérique, 
Applesoft mémorise le nom, l'indice 
si besoin est, et la valeur. Toutes les 
informations utiles se trouvent donc 
réunies dans la zone de stockage des 
variables ou des tableaux. Dès qu'il 
s'agit d'alphanumérique, en revan- 
che, ce n'est plus la valeur qui est 
mémorisée mais l'adresse de cette 
valeur (chaîne de caractères corres- 
pondant à la variable ou à l'élément 
du tableau concerné). Pour une don- 
née lue en DATA, cette adresse se 
trouve dans la zone du programme, 
exactement là où elle apparaît dans 
la ligne de DATA, et non dans la 
zone de stockage des chaînes de ca- 
ractères. Vous pouvez donc toujours 
supprimer une ligne de DATA numé- 
riques après lecture sans perte d'in- 
formation, mais il n'en va pas de 
même pour les DATA alphanuméri- 
ques (c'est pourquoi, dans notre 
exemple, nous conservons les lignes 
1020 et 1030). 


En fait, si les variables conservent 
toujours la même valeur, vous pou- 
vez laisser les choses en l'état car les 
chaînes ne prennent pas plus de 
place dans la zone-programme 
qu'ailleurs. Si par contre elles sont 
appelées à évoluer au cours du pro- 
gramme, il vaut mieux les transférer 
dans la zone des chaînes où elles 
pourront être prises en charge par les 
processus de ‘’garbage”. Il suffit pour 
cela de rajouter dans la phase d'ini- 
tialisation une instruction du type 
A$= A$+ "” (où A$ est une varia- 
ble qui a été lue en DATA) et vous 
pourrez ensuite supprimer la ligne de 
DATA comme nous l'avons fait pour 
la ligne 1035. 


Adresses 


Quelques remarques pour finir sur la 
routine en assembleur. Les adresses 
utilisées sont : 


$67-$68 : adresse de début du pro- 
gramme, copiée pour manipulation 
en $F9-$FA 





Gérard Michel 


$6-$7 : stockage du numéro de la 
dernière ligne à conserver 


$8-$9 : stockage de l'adresse dans la 
zone-programme de la première ligne 
à supprimer 


$18-$19: mémorise la nouvelle 
adresse de la fin du programme 
(LOMEM) 


$69-$6A : LOMEM 


$6B-$6C: adresse de la fin de la 
zone des variables simples (ARY- 
TAB) 


$6D-$6E : adresse de la fin de la 
zone des tableaux (STREND) 


$AF-$BO : adresse de la fin du pro- 
gramme. 


Programme 


— Lignes 6 à 23: recherche du nu- 
méro de la dernière ligne à conserver 
dans le programme. 


_— Lignes 24 à 29: stockage de 
l'adresse de la première ligne à sup- 
primer. 


— Lignes 30 à 34: marque la nou- 
velle fin du programme (00). 


— Lignes 35 à 43: stockage provi- 
soire du nouveau LOMEM. 


— Lignes 44 à 46: déplacement des 
zones des variables simples et des ta- 


bleaux de l'ancien au nouveau 
LOMEM. 


— Lignes 47 à 52: mise à jour des 
adresses pour le déplacement ci- 
dessus. 


— Lignes 53 à 58 : test pour savoir si 
l'on est arrivé à la fin de la zone des 
variables simples. 


— Lignes 59 à 62 : si oui, mise à jour 
de la nouvelle valeur de ARYTAB. 


— Lignes 63 à 68 : test pour savoir si 
l'on est arrivé à la fin de la zone des 
tableaux. 


— Lignes 69 à 78 : si oui, le décalage 
est terminé et on met à jour 
LOMEM, le pointeur de fin du pro- 
gramme et STREND. 
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Programme MOVE.DEMO 1020 DATA TEXTE 1,TEXTE 2,TEXTE 3,TEXT 
E 4,TEXTE S,TEXTE 6,TEXTE 7,TEXTE 


1 REM DEMONSTRATION DE LA 8,TEXTE 9,TEXTE 10 
2 REM SUPPRESSION D’UNE FIN 1030 DATA  TEXTE11,TEXTE12,TEXTE13,TEX 
3 REM DE PROGRAMME APPLESOFT TE14,TEXTE15,TEXTE16,TEXTE17,TEXT 
4 REM Sss=zzæ==2=s==2z=2=2=2=-== E18,TEXTE19,TEXTE 20 
10:08 "=. CHR (4): PRINT DÉBLOAD. MOVE, 0 | 1059: READ A8: REND DAIAS ©'A + cibS 


B# + "": READ US$(1): READ US (2): 
100 HB = INT (1030 / 256):LB = 1030 - 2 el rc PR ce ML A 
56 » HB: POKE 6,LB: POKE 7,HB: CA Per ee OUT 9 DATE TEST APS 
PE EST B$, TEST U#(1),TEST Us(2) 
è , | 1036 PRINT : INPUT “VARIABLE AAS “;AAS: 
110 FOR I = 1 TO 20: PRINT ZS(I): NEXT Ra UE RÉ an Re 


BJ": GOTO 1000 


: GET Z$ = m …, a 
120 FOR I = 1 TO 10: PRINT IS(I): NEXT INPUT “VARIABLE AA *;AA: PRINT 
: GET Zs 
À . | 1040 FOR I = 1 TO 10: PRINT “INIT."I;: 
dd re ae ne PATENT ÉRNAS MERS INPUT IS(I): NEXT : PRINT : FOR I 


= 1 TO 20: READ Z22(I1): NEXT 

1050 DIM Z(200) 

1060 FOR I = 1 TO 10: FOR J = 1 TO 20:Z 
CJ + 20 # (I - 12) = ZZ(CJ) # IL * 
I: NEXT : NEXT 


140 FOR I = 1 TO 200: PRINT Z(I): NEXT 
: PRINT : GET 2$ 
150 PRINT AS: PRINT BS: PRINT US(1): PR 
INT US(2): PRINT AA: PRINT : GET 
25 
vu : 1070 FOR I = 1 TO 200: PRINT Z(I): NEXT 
160 FOR I = 1 TO 20: PRINT Z(I) + ZZ(I) : GOTO 100 


: NEXT : END . 
D 1000 DIM 22(20),2sc20): FOR Z = 1 TO 20 |1080 DATA. 1,2,5,4,9,6,7,8,9,10,11,12,1 


: READ Z$(I): NEXT 3,14,15,16,17,18,19,20 


* Programme MOVE.SCE 34 STA ($8),Y 70 STA $69 
+ Lis 15 35 LDA $8 71 STA SAF 
FE 36 CLC 72 LDA #19 
D ORG #200 37 ADC #3 73 STA $6A 
" 2 LDA 567 38 STA $8 74 STA $BO . 
3 STA $F9 39 STA #18 75 LDA $8 
4 LDA $68 40 BCC 520 76 STA $6D 
5 STA SFA 41 INC #9 77 LDA #9 
6 50 LDY #03 42 S20 LDA #9 78 STA $6E 
z LDA (SF9),Y | 43 STA $19 79 RTS 
8 CHP 57 44 LDY #0 80 DCM “INT* 
3 BEQ S1 45 S5 LDA ($69),Y | 81 END 
10 53 LDY #1 46 STA ($8),Y 
11 LDA (SF9),Y | 47 INC $69 Récapitulation 
re LE 48 BNE 54 #00.3#%  MOVE.OBJ 
13 DEY 49 INC S$64 | 
14 LDA (SF9),Y 50 S4 INC s8 0300- A5 67 85 F9 ÀS5 68 85 FA 
15 STA $F9 51 BNE 56 0308- A0 03 B1 F9 C5 07 FO 10 
16 PLA 52 INC $9 0310- AO 01 B1 F9 48 8B B1 F9 
17 STA SFA 53 56 LDA $6A 0318- 85 F9 68 85 FA 4C 08 03 
18 JMP SO 54 CMP S6C 0320- 88 B1 F9 C5 06 FO 03 4C 
193 S1 DEY 55 BNE S60 0328- 10 03 RO 00 Bi F9 85 08 
20 LDA CSF9),Y 56 LDA $69 0330- CB Bi F9 85 09 A9 00 AB 
21 CMP 6 57 CMP $6B 0338-91 08 CB 91 08 A5 08 18 
22 BEQ S2 58 BNE 560 0340- 69 03 85 08 85 18 0 02 
23 JMP S3 59 LDA S8 0348- E6 09 AS 09 85 19 A0 06 
24 S2 LDY #0 60 STA S6B 0350- Bi 69 91 08 E6 69 DO 02 
25 LDA (#F9),Y | 61 LDA 59 0358- E6 GA EG 08 DO 02 EG 09 
26 STA 8 62 STA S6C 0360- A5 6A CS EC DO 0E A5 69 
27 INY 63 S60 LDA S6A 0368- C5 6B DO 08 A5 08 85 6B 
28 LDA CSF9),Y 64 CMP $6E 0370- A5 09 85 6C AS 6A CS 6E 
29 STA S$9 65 BNE S5 0378- DO D6 ÀS 69 C5 6D DO D9 
30 LDA #0 66 LDA $69 0380- À5 18 85 69 45 AF A5 19 
31 TAY 67 CMP S$S6D 0388- 85 6A 85 BO ÀS 08 85 6D 
32 STA ($8),Y 68 BNE S5 0330- A5 09 85 6E 60 
33 INY 69 LDA $18 #5D06 
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Ce programme est une application 
simple du mode HGR répondant à 
plusieurs objectifs : 


e mise en oeuvre de graphiques 
HGR simples (pédagogie de l’Ap- 
plesoft), 


e utilisation ludique, sinon artistique, 
pour jeunes et moins jeunes, 


e utilisation pratique: dessin de 


schémas ou de logos. 


Contrairement à d’autres program- 
mes déjà publiés dans Pom's, il n’a 
pas été prévu de possibilités d'anima- 
tion. 


Les possibilités et les 
commandes 


À la mise en route, le programme lit 
les tableaux de DATA et charge le 
module binaire INVERSION VIDEO 
HGR.OBJ qui occupe 27 octets de 
$300 à $31A et permet d'obtenir 
l'inversion vidéo du dessin en cours 
de traitement. Puis il initialise le sys- 
tème et attend les commandes de 
l'utilisateur. 


Chaque commande que l'on peut 
envoyer pour déplacer le spot sur 
l'écran est constituée d’une lettre ou 
d’un caractère de contrôle. On dis- 
pose ainsi des commandes suivan- 
tes : 


— ESC : le spot peut, ou non, laisser 
une trace à l'écran, on passe d'un 
mode à l’autre par cette commande. 
Le mode ’écriture” est indiqué en 
bas de l'écran par le mot ECRIS. 


— 1J,K,M: permettent les déplace- 
ments bien connus des utilisateurs 
d'Apple. 


- O, ”,”, NU: permettent les dépla- 
cements obliques intermédiaires. 


— V (voir) : permet en mode ‘éteint” 
de visualiser la position actuelle du 
spot. 


— E: efface l’image actuelle, non 
sans laisser la possibilité de rattraper 
une entrée par erreur dans cette op- 
tion. 


— Q: permet de quitter le pro- 


gramme, avec la même précaution 
que ci-dessus. 
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Aide au graphique HGR 


Y: transforme instantanément 
l’image vidéo en son inverse. 


— CTRL-C: permet de sauver sur 
disquette une image HGR, le pro- 
gramme demandant son nom. 


— À: permet de charger en MEV et 
donc de visualiser une image déjà 
enregistrée sur disquette. Il est évi- 
demment possible de travailler à 
nouveau sur cette image. 


— P: positionne directement le spot 
en un point déterminé dont les coor- 
données X (0 à 279) et Y (0 à 159) 
sont spécifiées ensuite à la demande 
du programme (les rentrer sous la 
forme X,Y). Les coordonnées actuel- 
les du spot sont toujours affichées à 
gauche sur la dernière ligne de 
l'écran. 


— CTRL-D : trace une droite dont les 
coordonnées suivront sous la forme 
X0,Y0,X1,Y1. 


— R: trace un rectangle dont le spot 
représente le sommet en haut à gau- 
che. Les dimensions doivent suivre, 
ainsi qu’un caractère : si c'est B le 
rectangle sera plein, sinon seul le pé- 
rimètre sera tracé (rentrer les don- 
nées sous la forme X,Y, Caractère). 


— C: trace un cercle centré sur le 
spot. Le rayon sera spécifié ainsi que 
B ou un autre caractère (cf. ci- 
dessus). 


— X: permet d'afficher le caractère 
qui est demandé ensuite. Dans cette 
version, les caractères disponibles 


sont ceux qui figurent à la ligne 
10010. 


À noter que le programme teste tou- 
jours la validité des coordonnées afin 
que l’on ne puisse ”’sortir” de l'écran. 


Principales variables 


X,Y : coordonnées du spot 
CL : couleur (0= éteint, 3= allumé) 
R$ : dernière commande entrée 


A$, B$, C$ : paramètres de certaines 
commandes 


LX: dimension horizontale du rec- 
tangle 


J.-F Groussin 


LY : dimension verticale 


DX,DY : coordonnées de 
d’une droite 


début 


FX,FY : coordonnées de fin d’une 
droite 


R : rayon du cercle 


FG : rang du caractère affiché par la 
commande X 


V : valeur attribuée à la ligne du ca- 
ractère 


NC : nombre de caractères afficha- 
bles 


CD$: ensemble des caractères de 
largeur 5 


CES: ensemble des caractères de 
largeur 3 


TB%(IJ) : tableau des codes des ca- 
ractères (lu en DATA - cf. l’article sur 
les caractères géants). 


Analyse du programme 


Lignes 10 à 20 : initialisation 


Lignes 30 à 190: 
commande et tests 


Lignes 200 à 350 : test X et Y et dé- 
placement du spot 


Lignes 360 à 380 : commande P 
Lignes 400 à 470 : commande R 
Lignes 500 à 525 : commande D 


Lignes 600 à 640 : commande R et 
couleur 


Lignes 700 à 760 : commande C 
Lignes 900 à 920 : commande V 


Lignes 1000 à 1030 : commande 
CTRL-C 


Lignes 1050 à 1060 : commande A 
Lignes 1100 à 1120 : commande Q 
Lignes 1150 à 1160 : commande E 


Lignes 2000 à 2090 : DATA pour les 
caractères affichables 


recherche 


Lignes 2900 à 3120 : affichage d’un 
caractère (la technique est la même 
que pour les caractères géants et les 
DATA sont identiques. Leur nombre 
ainsi que les graphismes peuvent être 
modifiés selon les besoins de l’utilisa- 
teur). 
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Programme AIDE. HGR 


10 
11 
12 


15 


17 


20 
30 


31 
32 


40 
45 
50 


X = 140:Y = 


REM 
REM 
REM 


AIDE AU DESSIN HGR 
CAPPLESOFT) 


SSSS22Z=2=============- 


TEXT : HOME : PRINT “AIDE AU DESSIN 
HGR": VTAB 6: PRINT “PATIENCE.... 
.": POKE 35,23: GOSUB 10000: HGR 

PRINT CHRS$ (4)"BLOAD INVERSION VIDE 
O HGR.OBJ" 

80:CL = O 

VTAB 24: HTAB 1: PRINT "X";X;" Y":Y: 
: IF CL = 3 THEN PRINT “ ECRIS 

GOTO 32 

PRINT "“ ne 

VTAB 21: HTAB 1: CALL - 958: HTAB 1 
O: PRINT “COMMANDE ‘“;: GET RS: PR 
INT RS 

IF ASC (RS) < 

IF CL = O THEN 


LEE 
se 


> 27 THEN 60 
CL = 3: GOTO 60 


CL = © 


IF ASC (RS) 
TO 200 
ASC (RS) 
ASC (RS) 
ASC (RS) 
ASC (RS) 
TO 200 
IF ASC (RS) 
TO 200 
IF ASC (RS) 
TO 200 
ASC (RS) = 
= Y - 1: GOTO 200 
ASC (RS) = 44 THEN X = X + 
= Y + 1: GOTO 200 
ASC CRS#) = 78 THEN 
= Y + 1: GOTO 200 
ASC (RS) = 85 THEN X 
= Y - 1: GOTO 200 
ASC (CR#) = 86 THEN 900 
ASC (RS) 4 THEN 500 
ASC (RS) THEN 1150 
ASC (RS) THEN 1050 
ASC (RS) THEN 360 
ASC (RS) THEN 1100 
ASC (RS) THEN CALL 3 # 
6: GOTO 30 
IF ASC (RS) 
GOTO 30 
IF X 
IF X 
IF Y 
IF Y 
REM 
HCOLOR= CL 
HPLOT X,Y 
VTAB 23: CALL - 958: GOTO 30 
VTAB 21: CALL - 958: INPUT “ALLER 
EN X-Y ";AS,BS 
IF VAL CAS) < O OR VAL (AS) > 259 
THEN PRINT ‘“‘“: GOTO 30 
IF VAL (CBS) < O OR VAL (BS) > 159 
THEN PRINT ““: GOTO 30 
VAL CASD:IY = VAL (BS): 


73 THEN Ÿ = Y - 1: 


IF 
IF 
IF 
IF 


3 THEN 1000 
67 THEN 700 
82 THEN 400 
77 THEN Y = Y + 1: 


n 


75 THEN X = X + 1: 


74 THEN X = 


IF 73 THEN X 


h 
* 
+ 


X = X- 


u 
* 
0 


IF 
IF 
IF 
IF 
LE 
IF 
IF 


Muuuun 
n 
[2] 


88 THEN 2900 
— 1 THEN X = O: GOTO 
280 THEN X = 279 
— 1 THEN Y = O: GOTO 


160 THEN Y = 159 


300 


Wu Hu 


X = 
O 

VTAB 21: CALL 
Y;:COUL. : 

LX = X + 


GOTO 930 


- 9358: 
":AS,BS,CS 
VAL CASDILY = Y + 


INPUT "DIM X- 


VAL CBS 


) 


420 IF LX > 279 THEN AS = STRS (279 - 
X):LX = 279 
430 IF LY > 159 THEN B$ = STRS (159 - 
Y):LY = 159 
440 IF CS = “B" THEN 600 
450 HCOLOR= 3: FOR I = O TO VAL (CAS): 
HPLOT X + I,Y: HPLOT X + I,Y + V 
AL (CBS): NEXT 
460 FOR I = O TO VAL (B$): HPLOT X,Y + 
I: HPLOT X + VAL CAS),Y + I: NE 
XT 
470 HCOLOR= CL: GOTO 30 
500 VTAB 21: CALL - 958: PRINT “DROITE 
XY...A...XY" 
S10 INPUT “"“;:AS,BS,CS,D$S: IF VAL (AS) 
< O OR VAL (CAS) > 279 THEN PRIN 
T “"“: GOTO 500 
512 DX = VAL CAS): IF VAL (CBS) < O OR 
VAL (CBS) > 159 THEN PRINT “": 
GOTO 500 
515 DY = VAL (BS): IF VAL (C$#) < O OR 
VAL (CS) > 279 THEN PRINT “‘“: 
GOTO 500 
S20 FX = VAL (CS): IF VAL (DS) < O OR 
VAL CDS) > 159 THEN PRINT “‘": 
GOTO 500 
S25 FY = VAL (DS): HCOLOR= 3: HPLOT DX, 
DY TO FX,FY: GOTO 30 
600 HCOLOR= 3: FOR I = O TO VAL (AS) 
610 FOR J = O TO VAL (BS) 
620 HPLOT X + I,Y + J 
630 NEXT J 
640 NEXT 1: HCOLOR= CL: GOTO 30 
700 VTAB 21: CALL - 958: INPUT “CERCLE 
R ;COUL. ";AS,CS 
710 R = VAL CAS): IF X + R > = 279 OR 
X -R< =OORY +R > = 1359 OR 
Y - R < = O THEN 700 
715 IF CS = “B" THEN 800 
720 HCOLOR= 3: FOR I = - R TOR 
725 T = SOR (R»#* R - I * I) 
730 HPLOT X + I,Y + T 
740 HPLOT X + I,Y - T 
750 NEXT 
760 HCOLOR= CL: GOTO 30 
800 HCOLOR= 3: FOR I = - R TOR 
810 T = SQOR (R *#* R - I * I) 
820 HPLOT X + I,Y + T TOX + I,Y - T 
830 NEXT : HCOLOR= CL: GOTO 30 
300 FOR I = 1 TO 300: HCOLOR= 3: HPLOT 
X,Y 
9310 HCOLOR= O: HPLOT X,Y: NEXT 
320 HCOLOR= CL: HPLOT X,Y: GOTO 30 
1000 VTAB 21: HTAB 1: CALL - 958: INPU 
T "NOM DE L’IMAGE ET DRIVE ‘“;RPS, 
D: IF LEN (RPS) = O OR D < 1 OR 
D > 2 THEN 1000 
1010 PRINT CHRS (4)'"BSAVE"RPS",AS2000, 
LS1FFF,D“D 
1020 PRINT “IMAGE SAUVEGARDEE" 
1030 GOTO 30 
1050 ONERR GOTO 5000 
1060 VTAB 21: CALL - 958: INPUT “NOM D 
E L’IMAGE ET DRIVE ‘“‘;RS,D: PRINT 
CHRS (4) '"BLOAD"RS$",D"D: GOTO 30 
1100 VTAB 21: HTAB 1: CALL - 958: PRIN 
T “ATTENTION FIN=0O CONTINUE=1 
3: GET RS: PRINT R$: IF R$ = “O" 
THEN TEXT : HOME : END 
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1110 
1120 
1150 


IF RS < 
GOTO 30 
VTAB 21: HTAB 1: CALL - 958: PRIN 
T “ETES-VOUS SUR O/N “;: GET RS: 
PRINT RS: IF R$ = “O"* THEN HGR : 
GOTO 20 
GOTO 30 
DATA 65,14,17,17,31,17,17,17,66,3 
0,17,17,30,17,17,30,67,14,17,16,1 
6,16,17,14,68,30,17,17,17,17,17,3 
0 
DATA 69,31,16,16,30,16,16,31,70,31 
,16,16,30,16,16,16,71,14,17,16,19 
17,17:44,72,17,217,17,91,17;17;17 
DATA 35,10,10,31,10,31,10,10,74,1, 
1,1,1:1,17,14,79,17,17,189 ;28;18,1 
7,17,76,16,16,16,16,16,16,31 
DATA 77,17,27,21,17,17,17,17,78,17 
,25,21,21,19,17,17,79,14,17,17,17 
,17,17,14,80,30,17,17,30,16,16,16 
DATA 81,14,17,17,17,21,19,15,82,30 
»17,17,30,20,18,17,83,14,16,16,14 
»1,1,14,84,31,4,4,4,4,4,4 
DATA 85,17,17,17,17,17,17,14,86,17 
>17/17,17,17,10,1,87,21:21;21,21; 
21,21,10,88,17,10,10,4,10,10,17 
DATA 89,17,10,4,4,8,16,16,90,31,1, 
2,4,8,16,31,45,0,0,0,0,31,0,0,50, 
14,17,1,2,4,8,30 
DATA 51,30,1,1,14,1,1,30,52,16,16, 
16,18,31,2,2,53,30,16,16,28,1,1,2 
8,54,14,17,16,30,17,17,14 
DATA 55,31,1,1,14,4,8,16,56,14,17, 
17,14,17,17,14,57,14,17,17,14,1,1 
»14,46,0,0,0,0,6,6,0,73,7,2,2,2,2 
27 
DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,0 
,0,0 
VTAB 21: HTAB 1: CALL 
T “CARACTERE: “:: 
s 
FG = 


> “1" THEN 1100 


1160 
2000 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


2030 


29300 - 958: PRIN 


GET AS$: PRINT A 


2910 O0: FOR K = 1 TO LEN (CDS#) 


Programme INVERSION VIDEO HGR 


Assembleur SCII 
1000 * INVERSION VIDEO HGR 


1010 -.0R $300 
1020 MEM -EQ $17 
1030 LDA #$20 
1040 STA MEM+1 
1050 LDA #$00 
1060 STA MEM 
1070 TAY 

1080 DEB LDA CMEM),Y 
10930 EOR #SFF 
1100 STA CMEM),Y 
1110 INY 

1120 BNE DEB 
1130 INC MEM+1 
1140 LDA MEM+1 
1150 CMP #$40 
1160 BNE DEB 
1170 RTS 
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2920 IF MIDS (CDS,K,1) < > As THEN 29 
40 

2930 FG = K:K = LEN (CDS) 

2940 NEXT K 

2950 IF FG < > O THEN 2990 

2960 FG = O: FOR K = 1 TO LEN (CES) 

2970 IF MIDS (CES,K,1) < > AS THEN 29 
80 

2975 FG = K + 35:K = LEN (CES) 

2980 NEXT K 

2990 IF FG = O THEN PRINT ““;: GOTO 3 
Oo 

3000 IF X + 5 > 279 THEN PRINT ““:: GO 
TO 30 

3001 IF Y + 7 > 159 THEN PRINT ““:: G 
OTO 30 

3005 HCOLOR= 3 

3010 FOR L = 1 TO 7 

3050 V = TBx(FG,L) 

3060 IF FG > 35 THEN 3090 

3070 IF INT (V / 16) = 1 THEN HPLOT X 

+ 1,Y + L:V = V - 16 

3080 IF INT (V / 8) = 1 THEN HPLOT X 
+ 2,Y + LiV = V - 8 

3090 IF INT CV / 4) = 1 THEN HPLOT X 
+ 3,Y + L:V = V - 4 

3100 IF INT (V / 2) = 1 THEN HPLOT X 
+ 4,Y + LiV = V - 2 

3110 IF V THEN HPLOT X + 5,Y + L 

3120 NEXT L: GOTO 30 

5000 VTAB 21: HTAB 1: CALL - 958: PRIN 
T “ERREUR....TAPER <<RETURN>> 
“+: INPUT ““:R$: GOTO 30 

9999  REM 

10000 REM INIT. CARACTERES 

10001 REM 

10010 NC = 39:CD$ = "“ABCDEFGH#JKLMNOPORS 
TUVWXYZ-23456789":CES = “.I1 “ 

10020 DIM TBx(NC,7) 

10030 FOR I = 1 TO NC: FOR J = O TO 7: 
READ TBx(I,J): NEXT J: NEXT I 

10040 RETURN 

Récapitulation 


Inversion VIDEO HGR.OBJ 


*300.31B 

0300- A3 20 85 18 A9 00 85 17 
0308- A8 B1 17 49 FF 91 17 C8 
0310- DO F7 E6 18 AS 18 C9 40 
0318- DO EF 60 00 


Un de nos lecteurs, Yves Opizzo, nous a adressé un 
programme de gestion de tournois d'échecs écrit en 
Basic et assez bien fait. Compte tenu de la particularité 
de ce programme, nous ne comptons pas le publier. 
Les lecteurs intéressés peuvent envoyer une disquette 
avec une enveloppe timbrée (pour le retour de la dis- 


quette) à Yves Opizzo - Rue de la Poste - 84760 St 
Martin de la Brasque. 











Heureux possesseurs 


d'un Apple 
JL, JE, Je, ou [I 


VOICI votre réseall. 
CALVADOS 


e Ouvert depuis juin 1982, c'est le réseau choisi par Apple en France et par 
ses concessionnaires. 


e Bases de données boursières (bourses françaises et étrangères). 


e Bases de données proposées par Apple pour enrichir votre pratique de 
l'ordinateur personnel : 
BDT : Base de données sur le matériel Apple 
BDM : Catalogue de matériels Apple et compatibles 
BDL: Catalogue de logiciels Apple et compatibles. 























e Transfert de fichiers et de documents (traitement de texte et «calc») entre 
tout Apple où qu'il soit en France, avec conversion automatique QWERTY- 
AZERTY et Apple ][, //e, ///. 


e Messagerie électronique et panneau d'annonces accessibles à partir de tout 
point du territoire national. 


e Constitution de réseaux privés sans investissements et fonctionnant avec 
tout matériel. 


e Constitution de bases de données privées pour consultation à distance sur 
tout matériel. 


e Pour les SSCI et créateurs de logiciels, un contact immédiat avec plus de 
170 revendeurs ( 200 fin 1983), avec possibilité de diffusion de messages 
promotionnels. 


e Transfert d'informations entre disquettes et bandes magnétiques standard. 


e Des tarifs qui font de Calvados le moyen de communication et le serveur le 
moins cher du marché. Conditions spéciales pour clubs. 
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01210 FERNEY-VOLTAIRE 
CIP 

43bis, Av. du Jura 

(50) 40.62.34 

CALVA 1100 


02100 SAINT QUENTIN 
COGNET 

21, Rue Victor Basch 
(23)62.72.89 

CALVA 1087 


03200 VICHY 

03 INFORMATIQUE 
7, Rue Voltaire 
{70)41.27.50-CALVA 1031 
06000 NICE 

D.S.A. INFORMATIQUE 
5, Bd Debouchage 

(93) 85.15.96 

CALVA 1125 

06000 NICE 

MEDIA SOFT 

27, Rue Delille 
(93)85.28.06-CALVA 1073 
06000 NICE 


SORBONNE INFORMATIQUE 


40, Rue Gioffredo 
(93)85.17.55-CALVA 1072 
06000 NICE 

MCS 

7, Rue Dante 


(93) 96.50.55-CALVA 1054 


06150 CANNES LA BOCCA 
ONDE MARITIME 

28, Boulevard du Midi 
(93)47.4430-CALVA 1024 
06600 ANTIBES 

ESPACE INFORMATIQUE 
1, Chemin de Saint-Claude 
(93)74.7801-CALVA 1049 


06700 ST LAURENT DU VAR 


MOS COMPUTERLAND 
Avenue Léon Béranger 
(93)07.61.12-CALVA 1129 


06700 ST LAURENT DU VAR 


POINT MICRO 

CAP 3000 

(93)31.2440 -CALVA 1046 
MONACO 

MICROTEK 

2, Bd Raïinier 111, Monaco 


(93)50.43.44 -CALVA 1003 


11000 NARBONNE 
R.I.I. INFORMATIQUE 
5, Quai Vallière 


(68)65.15.83 - CALVA 1040 


13001 MARSEILLE 

FNAC MARSEILLE 
Centre Bourse 

(91) 91.30.62-CALVA 1149 
13005 MARSEILLE 

ELP INFORMATIQUE 
20, Rue Hugueny 
(91)94,91,13 - CALVA 1056 
13006 MARSEILLE 
INTERSOFT 

64, Rue de Prado 

CALVA 1103 

13006 MARSEILLE 
S.M.I.A. 

33A, Avenue Jules Cantini 
(91)37.04.26 - CALVA 1113 
13006 MARSEILLE 
COMPUTERLAND CPL 
1, Av. de Corinthe 


(91) 78.02.02-CALVA 1004 


13006 MARSEILLE 
ELECTRONIC SERVICE 
COMPUTER 

39, Rue Lieutaud 

CALVA 1161 

13007 MARSEILLE 
PROVENCE SYSTEM 
74, Rue Ste-Le St James 
(91)33.22.33 - CALVA:1055 
13008 MARSEILLE 
MEDIATEC 

485, Avenue du Prado 
(91)71.45.45 - CALVA 1112 
13008 MARSEILLE 
MICROMAG 

C.C. MERMOZ 

111, Rue J. Mermoz 


(91) 71.79.13-CALVA 1132 
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13100 AIX EN PROVENCE 
ECO INFORMATIQUE 
Boulevard Coq 

(42) 27.11.48-CALVA 1115 
13200 ARLES 

LUDO 

27, Rue de la République 
CALVA 1139 

13700 VENELLES 
SOPROGA 

Avenue de la Mouliero 
(42)61.1243 - CALVA 1087 
14300 CAEN 
COMPUTERLAND CAEN 
12, Rue St Pierre 


(31)85.62.48 - CALVA 1098 


14390 TRONQUAY 


NORMANDIE INFORMATIQUE 


Résidence la Tuilerie 
(31)92.56.09 - CALVA 1074 
21000 DIJON 

O.M.G. 

20, Rue Michelet ; 
{80)30,12.70 - CALVA 104 
21000 DIJON 


LASOBIKOR 
7, Rue Monge 


(80)30.09.70 - CALVA 1014 


21000 DIJON 
SETTEM 
36, Rue Jeannin 


(80)66.16.43 - CALVA 1033 


22000 ST BRIEUC 

CENTRE INFORMATIQUE 
BRETON 

19, Rue de Rohan 


(91) 61.00.54-CALVA 1082 


31000 TOULOUSE 
SOUBIRON 

9, Rue J.F. Kennedy 
(61)21.64.39 - CALVA 1020 
33000 BORDEAUX 
SIVEA BORDEAUX 

9, Rue de Lalande 
(56)91.55.08 - CALVA 1122 
34000 MONTPELLIER 
MICRO 34 

7, Cours Gambetta 
{67)92.91.23 - CALVA 1080 
34130 VALERGUES 
C.E.B.E.A. 

Route Nationale 113 
(67)71.76.69 - CALVA 1079 
35000 RENNES 
COMPUTERLAND 
BRETAGNE 

13, Avenue du Mail 
(99)5447.12 - CALVA 1011 
35000 RENNES 
X-MATIC 

l6él, Avenue Général Patton 


(99)38.31.80 - CALVA 1121 


35100 RENNES 

DELTA MICRODIN 

4, Place de Bretagne 
(99)30.65.18 - CALVA 1120 
35000 TOURS 

A.R.E.I. 

8, Allée du Manoir 


(47) 64.69.93-CALVA 1099 


37000 TOURS 
BOUTIN INFORMATIC 
36, Rue Marceau 


(47)20.51.83 - CALVA 1060 


Ces concessionnaires 


APPLE 


sont abonnés à CAIMDOS. 
Demandez-leur 
une démonstration! 


25200 MONTBELIARD 
MICRO ALPHA SOFT 
11, Impasse du Lacquet 
(84)36.92.33 - CALVA 1018 


26500 BOURG-LES-VALENCES 


ECA ELECTRONIQUE 
22, Quai Thannaron 


(75} 42.68.88-CALVA 1153 


29000 QUIMPER 
MATRICE DEVELOPPEMENT 
2, Venelle de Kergos 


(98)55.75.93 - CALVA 1094 


29200 BREST 

LA BOUTIQUE 
INFORMATIQUE 

156, Rue Jean Jaurès 
(98)44.32.79 - CALVA 1107 
30000 NIMES 

E;T:f; 

58, Rue Pierre Semard 


(66)36.02.52 - CALVA 1111 


30000 NIMES 

ETI 

58, Rue Pierre Sémard 
CALVA 1111 

30100 ALES 

ARCOMEL 

8bis, Rue Mistral 
{66)52.15,91 - CALVA 1083 
31000 TOULOUSE 

BURE AUMATIQUE 

4, Promenade des Capitouls 


(61)21.87.27 - CALVA 1128 





37000 TOURS 
POLY-SOFT 

67, Rue Michel Colombe 
(47)66.66.49 - CALVA 1010 
37000 TOURS 
SELECTRON 

20-24, Rue de Jérusalem 
(47)20.80.70 - CALVA 1093 
38100 GRENOBLE 
GAMMA INFORMATIQUE 
9, Cours de la Libération 
(76)96.3005 - CALVA 1048 
38100 GRENOBLE 

FNAC GRENOBLE 

3, Grand-Place 


(76) 09.46.63 -CALVA 1147 


45000 ORLEANS 

A.G.0. 

48, Bld Alexandre Martin 
(38)5445,13 - CALVA 1090 


45 ORLEANS 01 

A.M.C. 

13, Rue des Minimes 
(38)62.62.58 - CALVA 1116 


46013 NANTES 

SIVEA 

121, Bd Gabriel Guisthau 
(40)47.53.09 - CALVA 1097 


49000 ANGERS 
INFORMATIQUE SERVICE 
42, Rue Parcheminerie 


(41) 88.95.07-CALVA 1134 





51100 REIMS 
ORGANIGRAMME 

16, Rue Emile Zola 

(26) 88.51.13-CALVA 1137 
53000 LAVAL 

SLAD INFORMATIQUE 
29, Rue Ambroise Paré 
(43)49.25.45 - CALVA 1026 


54000 NANCY 

JEAN VLASTOS 

MICRO INFORMATIQUE 
143, Rue Sgt Blandon 
(8)341.26.16 - CALVA 1130 


54000 NANCY 
PRECILAB 

96, Rue Stanislas 
(8)337.06.78 - CALVA 1016 
54400 LONGWY 
RANDOM 

18, Rue Mercy 

(8) 22480.11-CALVA 1081 
54520 LAXOU 
SEMITEC 

69, Rue de Maréville 
{8)340.4338 - CALVA 1008 


56100 LORIENT 
L'ORDINATEUR 56 

11, Quai des Indes 

(97) 64.52.54-CALVA 1108 
57000 METZ 

LA MICRO BOUTIQUE 
ECONOMAISON 

3, Rue Paul Bezanson 
{87754156 - CALVA 1114 


57000 METZ 

FNAC METZ 

Centre Saint Jacques 

14, Rue Tête-d'Or 

(8) 736.16.22-CALVA 1157 
57000 METZ 

LA MICRO BOUTIQUE 
3, Rue Paul Bezanson 
CALVA 1114 

57110 YUTZ 
MICROSERVICE 

B.P. 130-CALVA 1133 


57800 FREYMING-MERLEBACH 
CENTRE MICRO- 
INFORMATIQUE 

3, Place de la Gare 
{8)781.14.89 - CALVA 1030 
59000 LILLE 

M.B.D.C. 

172, Rue Solférino 

CALVA 1061 

59000 LILLE 

FNAC LILLE 

9, Place du GI de Gaulle 

(20) 57.88.43-CALVA 1158 , 
59000 LILLE 

RYO INFORMATIQUE 

42, Rue de Paris 

{20)75.92.23 - CALVA 1076 


59000 LILLE 

SIVEA 

21bis, Rue de Valmy 
{20)57.88.43 - CALVA 1075 


59300 VALENCIENNES 
MICROMEGA 

38, Rue des Famars 
(27)42.30.30 - CALVA 1086 


59700 MARCQ EN BAROEUL 
MICRODATA 
INTERNATIONAL 

920, Avenue de la République 
(20) 98.60,06-CALVA 1084 
59800 LILLE 

PAMP MICRO-INFORMATIC 
5, Rue de Pas-Nouveau Siècle 
(20)57.91.87 - CALVA 1063 
60108 CREIL 
QUENEUTTE 

22, Rue de la République 
(4)425.04.26 - CALVA 1032 
61000 ALENCON 

TEMPS-X 

42, Rue de Lattre de Tassigny 
CALVA 1156 

62000 ARRAS 

SICORFE 

18bis, Rue Lamartine 

(21) 23.08.56-CALVA 1144 
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63000 CLERMONT-FERRAND 
FLAGELECTRIC 

142, Avenue Mermoz 
(73)92.13.46 - CALVA 1119 


63008 CLERMONT-FERRAND 
NEYRIAL INFORMATIQUE 


3, Cours Sablon 
({73)92.89.50 - CALVA 1110° 


14, Bld Alsace-Lorraine 
(59) 55.43.47-CALVA 1138 


64100 BAYONNE 


67000 STRASBOURG 
ILEC 


18, Quai St Nicolas 
(88)37.31.61 - CALVA 1015 


67000 STRASBOURG 


(88)60.68.68 - CALVA 1077 


67200 STRASBOURG- 
KOENIGSHOFFEN 
CEBEA 

89A, Rue des Romains 
CALVA 1079 


67200 STRASBOURG 


(89) 23.32.12-CALVA 1148 


68200 MULHOUSE 

FNAC MULHOUSE 

1, Place Franklin 

(89) 42.09.55-CALVA 1160 


69002 LYON 

FNAC LYON 

‘62, Av. de la République 
(7) 842.2649-CALVA 1146 


69003 LYON 

AB INFORMATIQUE 
18, Rue Pailleron 
(7)851.44.86 - CALVA 1041 


69003 LYON 

ALPHA SYSTEMS 

84, Av. du Maréchal de Saxe 
(7)860.89,34 - CALVA 1036 


69003 LYON 

POINT MICRO 

LA PART DIEU 

183, Rue Garibaldi 

(7) 895.20.82-CALVA 1023 
69003 LYON 

BIMP 

20, Rue Servient 

(7} 860.84.27-CALVA 1058 
69006 LYON 

ALTI 

39, Rue Barrier 
(7)824.00.03 - CALVA 1042 
69006 LYON 
ECO-INFORMATIQUE 
50, Cours Vuitton 
(7)894.60.56 - CALVA 1066 
71000 MACON 
CLINIQUE ELECTRONIQUE 
369, Rue de Paris 
(85)38.20.84 - CALVA 1053 
72000 LE MANS 

OMB LE MANS 

42, Rue Einstein 

(43) 24.99.40-CALVA 1154 
72000 LE MANS 
AESCULAPPLE 

4, Rue de Richebourg 


(43)24.97.80 - CALVA 1067 
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72000 LE MANS 

ASCI 

115, Rue Nationale 
(43)84.28.28 - CALVA 1095 
74000 SAINT GEVRIER 
SIGEA 

34, Avenue de la République 
(50)57.02.80 - CALVA 1043 


74102 ANNEMASSE 
D.S.A. MICRO 

15, Rue Adrien Ligue 
(50)38.31.40 - CALVA 1044 


75001 PARIS 

MICRO SUP 

6, Place Vendôme 
(12260.67.15 - CALVA 1057 


75001 PARIS 

FNAC FORUM 

1, Rue Pierre Lescot 

(1) 261.81.18-CALVA 1150 


75006 PARIS 

FNAC MONTPARNASSE 
136, Rue de Rennes 

(1) 544,39.12-CALVA 1150 


75006 PARIS 
MICRODATA 
26, Rue de Condé 
CALVA 1051 


75007 PARIS 
M.V.I. 


27, Rue Vaneau 
(1)551.66.77 - CALVA 1062 


75008 PARIS 

A.M.E. 

172, Boulevard Haussman 
(1562.96.40 - CALVA 1059 


75008 PARIS 

EUROPE 

COMPUTER SYSTEMES 
16, Rue Washington 
CALVA 1092 


75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 
30, Rue Cambacérès 
(1)742.91.00 - CALVA 1050 


75008 PARIS 

POINT MICRO BOETIE 
16, Rue de la Boétie 
{1265.8935 - CALVA 1019 


75008 PARIS 

S.I.V.E.A. 

13, Rue de Turin 
(1)522.70.66 - CALVA 1052 


75009 PARIS 
COMPUTERLAND MOS 75 
8, Rue Bleue 

(1)82465.80 - CALVA 1064 


75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lorette 
(1)282.19.80 - CALVA 1078 


75009 PARIS 

L.P.S. BUREAU 

46, Rue Laffitte 
(1)878.26.45 - CALVA 1007 


75009 PARIS 

INTERNATIONAL COMPUTER 
29, Rue de Clichy 

(1) 285.2455-CALVA 1103 


75010 PARIS 
SOFT MACHINE 
31, Bd de Magenta 
CALVA 1088 


75010 PARIS 

HELLO 

1, Rue de Metz 

(1) 523.30.34-CALVA 1143 


75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

51bis, Av. de la République 
(1)357.83.20 - CALVA 1009 


75011 PARIS 
TERTIAL 

14, Rue Jules Vallés 
CALVA 1140 


75012 PARIS 

ELLIX 

7, Rue Michel-Chasles 
(1307.60.81 - CALVA 1005 


75012 PARIS 

GESTION MICROS 

ET SERVICES 

212-214, Avenue Daumesnil 
(1)345.28.52 - CALVA 1068 


75015 PARIS 

ILLEL CENTER 
INFORMATIQUE 

143, Avenue Félix Faure 
(1)554.97.48 - CALVA 1001 


75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRANÇAISE 
228, Rue Lecourbe 

(1)828.06.01 - CALVA 1006 


75015 PARIS 

MICRO ASSISTANCE 
66, Rue Castagnary 
(1)530.05.28 - CALVA 1037 


75015 PARIS 

SIDEG 

170, Rue St Charles 
(1)557.79.12 - CALVA 1013 


75015 PARIS 
KA 


212, Rue Lecourbe 
(1) 533.13.50-CALVA 1027 


75015 PARIS 

DIF ELECTRONIQUE 
28, Rue Miollis 

(1) 566.68.38-CALVA 1142 


75016 PARIS. 
MICRODATA 
INTERNATIONAL 

50, Rue Raynouard 
(1525.81.64 - CALVA 1051 


75016 PARIS 

SOCIETE ANTIGONE 

12, Avenue Pierre ler de Serbie 
CALVA 1028 


75017 PARIS 

B.S.C. INFORMATIQUE 
39, Rue Cardinet 
(1)763.95.33 - CALVA 1117 


75017 PARIS 

NASA ELECTRONIQUE 

46, Avenue de là Grande Armée 
CALVA 1071 


75017 PARIS 

GAMIC 

27, Rue Guersant 

{1} 574.02.92-CALVA 1131 


75017 PARIS 

RANDOM FRANCE 

75, Bd Pereire 
(1)227.59.20 - CALVA 1126 


75017 PARIS 

SOCIETE FRANCAISE 
D'INFORMATIQUE 
APPLIQUEE 

41, Rue la Condamine 
CALVA 1065 


75018 PARIS 

B.I.P. L'INFORMATIQUE 
PERSONALISEE 

22, Rue Joseph Dijon 
(1)255.44.63 - CALVA 1070 


75018 PARIS 

BMI 

17bis, Rue Vauvenargues 
CALVA 1039 


76000 ROUEN 
L'ESPACE TEMPS REEL 
9, Quai du Havre 


(35)89.29.11 - CALVA 1101 


Librairie dépositaire de la documentation technique Calvados : 


76200 DIEPPE 
ELECTRODOM 

9, Rue Lemoyne 
(35)84.18.58 - CALVA 1002 


78000 VERSAILLES 
MICRORAMI 

17, Avenue de Saint Cloud 
(3)021.,30,15 - CALVA 1106 


78100 ST GERMAIN EN LAYE 
ORDI GESTION 

13, Rue Louviers 

(3)51.58.25 - CALVA 1109 


78117 CHATEAUFORT 
AVIRADIO 
Toussus-le-Noble 
(3)956.22.20 - CALVA 1127 


78190 TRAPPES 

PROBE INFORMATIQUE 
26, Avenue des Frères Lumière 
(3)062.26.03 - CALVA 1123 


80000 AMIENS 
PICARDIE 
MICRO-INFORMATIQUE 
6, Rue Allart 

(22)91.52.39 - CALVA 1022 
80000 AMIENS 

LOGIC 

18, Rue des Augustins 
(22) 92.39.46-CALVA 1163 
84000 AVIGNON 
SYNERGIE INFO 

71, Bld Montclar 

(90) 86.52.32-CALVA 1035 


85000 LES SABLES D'OLONNE Cdx 
IDEES INFORMATIQUE 
Port Olona - B.P. 193 
(51)95.19.47 - CALVA 1069 
86000 POITIERS 

LISTE INFORMATIQUE 
34, Bd Solférino 
(49)41.43.86 - CALVA 1091 
87000 LIMOGES 
MICROLIM 

81, Boulevard Gambetta 
CALVA 1118 


87000 LIMOGES 
MICROLIM 

81, Bd Gambetta 
(55)34.10.12 - CALVA 1118 


90000 BELFORT 

FNAC RELAIS-SNC 

6, Rue des Capucines 

CALVA 1159 

91420 MORANGIS 

LA MICROTHEQUE 

Z.I. Ouest Les Sables 

2, Av. Descartes-CALVA 1162 


92086 PARIS-LA DEFENSE 
POINT-MICRO 

Tour Neptune - CALVA 1023 
92100 BOULOGNE 
MINIGRAPHE 
MICRO-INFORMATIQUE 
263, Bd Jean Jaurès 
(1)608.4431 - CALVA 1034 


92120 MONTROUGE 
SERAP MICRO 

15, Rue Louis le Jeune 
CALVA 1155 


95200 SARCELLES Z.I. 
MICROKEY 95 

34, Rue de l'Escouvrier 
(3)419.04.24 - CALVA 1124 


95526 CERGY-PONTOISE Cdx 
ORGAMATIQUE 

9, Chaussée J. César - B.P, 304 
(3)030.37.85 - CALVA 1021 


97200 MARTINIQUE 
MICRO-TRAITEMENT 
Centre Commercial Dillon 
Fort de France 
(596)73.91.45 - CALVA 109% 


97400 LA REUNION 

MICRO SYSTEMES SERVICE 
74, Rue Labourdonnais 

CALVA 1102 


705.95.44 


Maubourg - Paris - Tél. : 


Impressions Latour- 


LA NACELLE — 2, Rue Campagne-Première 75014 PARIS - Tél. : 322.56.46. 
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La communication avec l’Apple 


Plan de l’article : 


— Importance des communications 


— Un bref aperçu de l'équipement 
nécessaire 


— Les services facilement utilisables 
en France 


Importance des 
communications 


Aujourd'hui, doter votre Apple de 
possibilités de communication avec 
d’autres Apples ou d’autres ordina- 
teurs n'a plus besoin d'être justifié. 
La prolifération des systèmes de 
courrier électronique, des services of- 
ferts sur ordinateur, des bases ou 
banques de données doit aujourd’hui 
nous motiver à essayer de compren- 
dre la communication. 


Les techniques de communication ne 
sont pas spécialement compliquées, 
mais il faut bien avoir conscience du 
coût relativement élevé de l'équipe- 
ment (5000 FF minimum) et du 
temps nécessaire à la maîtrise des lo- 
giciels permettant de communiquer, 
sans compter l'apprentissage des 
commandes évidemment différentes 
pour chaque système interrogé. 


L'équipement nécessaire 


Il est nécessaire d’avoir cinq élé- 
ments : 


— Une ligne de téléphone ; 

— Une carte de communication ; 

— Un “modem”; 

— Un câble pour relier le modem à 
la carte de communication ; 

— Un logiciel de communication. 


Quiconque a essayé de monter un 
modem sur une carte série et a voulu 
relier par un câble ces deux équipe- 
ments s’est rendu compte - non pas 
de la difficulté technique que cela re- 
présente - mais du temps nécessaire 
à mettre tout le système au point. Il 
faut d'abord s'assurer que la carte 
série est bien configurée pour entrer 
en communication avec un modem 
et non pas avec une imprimante, que 
le câble possède une fiche mâle à un 
bout et une fiche adéquate à l’autre 
bout, que les ‘switches” de la carte 
série sont bien adaptés à la vitesse 
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du modem, à la parité choisie (la pa- 
rité permet de vérifier que les bits qui 
composent le caractère transmis sont 
cohérents, un système de chiffres clés 
en quelque sorte). bref, plusieurs 
heures de mise au point et de lecture 
de manuels plus ou moins bien 
écrits, pour arriver à ses fins. 


En fait, il existe une solution simple 
disponible à ce jour pour résoudre 
ces problèmes : c'est le système No- 
vation. Il est bien certain qu'à partir 
de l’année prochaine d’autres systè- 
mes purement français seront com- 
mercialisés et auront en plus des pos- 
Sibilités de Vidéotex (NDLR: voir à 
ce sujet la rubrique micro-informa- 
tions)... mais restons-en pour l'instant 
à ce qui existe. 





Le système Novation 


Il s’agit en fait d'un système complet 
de communication et non seulement 
d'un modem intégré dans une carte 
de communication. La version 
CCITT, disponible en France et 
agréée par les PTT, comprend l'équi- 
valent d’une carte série, d'un modem 
et d'un câble de connection. Le tout 
est livré avec un logiciel dénommé 
Com-Ware, dont les fonctions sont 
décrites en détail dans un manuel ré- 
digé dans un français clair et relative- 
ment complet. Pour l'utilisateur dé- 
butant, c'est sans conteste ce qu'il y 
a de plus facile pour communiquer. 


La carte en elle-même est superbe 
dans sa fabrication, mais incomplète 
dans ses possibilités par rapport à 
celles commercialisées aux Etats- 
Unis. 
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Les deux grands atouts du système, 
outre sa compacité, résident dans la 
composition automatique des numé- 
ros de téléphone, et la possibilité de 
transférer à haute vitesse par blocs 
(environ 120 caractères par seconde) 
des fichiers de tous types : Text, Bi- 
naire ou Applesoft. Le tout est inté- 
gré dans le logiciel Com-Ware. 


L'ensemble des commandes disponi- 
bles figure ci-dessous : 


À Apple auto 
C Mode terminal 


U Réponse auto 

X Envoi mémoire 

S Sauver mémoire 

L Charger mémoire 
U Vérifier mémoire 
K Clavier —-> mémoire 
F Transfert rapide 
R Reconfiquration 
D Commande DOS 

£2 Imprimante Off 

H  Raccrocher 

M Terminal mémoire 
Q Effacer mémoire 
B Imprimer mémoire 
J Voir mémaire 

1 Half/Full duplex 
G Ecoute.Cf+f 

Q Quitter 


Bien que très sophistiqué dans sa 
conception, le modem n'est pas par- 
ticulièrement fragile. Seule, la détec- 
tion de porteuse (son qui indique 
l'établissement de la communication 
est quelquefois délicate et nécessite 
impérativement l’utilisation du petit 
écouteur livré avec la carte. 


Un secret : il est possible de compo- 
ser un numéro de téléphone habituel 
via le modem et de basculer en 
mode transmission de la voix et non 
en mode transmission de données. 
Cela vous permet d'entendre les 
messages habituels du type “il n’y a 
pas d’abonné...”. Pour cela, appuyez 


sur ”P” dans le menu général obtenu 
par ESC. 


En résumé, le système Novation est 
imbattable par son prix, ses fonctions 
intégrées, sa documentation et sa fa- 
cilité d'utilisation. 





Par contre, il est spécifique à l'Apple 
Il ou //e et ne peut donc fonctionner 
sur donc d'autres ordinateurs, y 
compris l'Apple ///. 


Les services facilement 
utilisables en France 


Un excellent échantillon des possibili- 
tés de services offerts en télécommu- 
nication sur l'Apple figure dans un 
récent article de l'Expansion rédigé 
par Joël de Rosnay (N° 222 du 
23/9/83, pp. 181-183). Dans cet arti- 
cle sont successivement décrites : 


— une connexion avec le système de 
courrier électronique MISSIVE (un 
système professionnel très complet 
qui permet aussi l'envoi de télex 
depuis l'ordinateur) ; 


— une connexion avec la SOURCE, 
le plus célèbre des réseaux améri- 
cains destinés au grand public, dispo- 


Les points forts 


® Tout d'abord le nombre d’abon- 
nés, environ 300, en très grande ma- 
jorité utilisateurs d'Apple. Votre re- 
vendeur habituel possède certai- 
nement un numéro avec une boîte 
postale dans laquelle vous pouvez 
laisser des messages. Avec un peu de 
chance, il vous répondra s’il consulte 
régulièrement sa boîte. Tous les utili- 
sateurs figurent dans un annuaire 
sous un numéro de code. Celui de 
Pom's : 2666. 


e Une messagerie efficace, surtout 
depuis qu'elle est disponible en 80 
colonnes (septembre 83). À cette 
messagerie est reliée une gestion de 
dossiers personnels. L'envoi simul- 
tané à une liste de personnes est 


prévu. Par contre, il n'existe pas 
d'éditeur de texte au niveau du mes- 
sage, les corrections s’effectuant 


avant la validation de la ligne, ce qui, 
à l'usage, n'est pas un inconvénient 


Les limites actuelles 


® Tout d'abord, le système de 
copie-écran, qui ne s'effectue pas en 
simultané lors d'une communication, 
mais en mode bloc lorsque le buffer 
correspondant est plein. Cette procé- 
dure n’est pas suffisamment efficace 
car, pendant l'impression, le message 
à l'écran ‘impression en cours” cli- 
gnote sans qu'il soit possible d’effec- 
tuer une opération quelconque. Ce 
défaut devrait être facilement corrigé. 


e Le nombre d'applications, encore 
insuffisant, mais lié bien sûr aux res- 
sources provenant du nombre 
d'abonnés. Un grand nombre d’ap- 
plications d'utilité générale devraient 
pouvoir être montées si le nombre 
d'adhérents se multiplie (conférences, 
déchargement de programmes pu- 
bliés dans des revues, etc..). Mais, 
pour cela, il est souhaitable que la ta- 
rification, prévue initialement pour les 
revendeurs Apple, soit revue et 


&  nible depuis la France par l'intermé- réel. Dans un grand nombre de mes- adaptée à l'utilisateur individuel. 

e: diaire de Transpac ; : : — — 
É<- ; ors, dans ces conditions, faut- 

“3 D a A s'abonner ? La réponse est oui sans 
5 de l'agence France Presse dis le ser- hésitation si l'on acquiert la carte 
+ veur G.CAM : modem Novation qui donne droit à 
Fa ‘ à un essai gratuit . Il sera difficile en- 
r-» — une connexion à la base de don- suite de ne pas continuer à utiliser 
7 nées du CNRS (Pascal) via le serveur l'un des courriers électroniques les 
%,  QUESTEL de Télésystèmes, serveur moins chers du marché. 

rl spécialisé dans les bases de données 





techniques; voir aussi à ce sujet 
Allo, Questel” dans le Pom's 8 : 


— une connexion via Transpac à 
DIALOG, serveur américain permet- 
tant l'accès à plus de 150 (oui, 150 !) 
bases de données. L'encyclopédie 
mondiale au bout des doigts, mais à 
quel prix !!! 


Il serait possible d'écrire un livre en- 
tier sur chacun de ces serveurs. Le 
manuel de la Source à lui seul 
comporte environ 200 pages. Parmi 
les systèmes développés en France, 
une mention spéciale doit être accor- 
dée à CALVADOS, système particu- 
lièrement intéressant pour les utilisa- 
teurs d'Apple. 


Le système Calvados 


Calvados est né dans le cerveau d'un 
possesseur d'Apple qui rêvait de le 
faire communiquer avec d'autres ma- 
chines. C'est donc un système très 
orienté Apple”, Apple France ayant 
fortement recommandé à ses reven- 
deurs de s'abonner afin de constituer 
un réseau de communication entre 
spécialistes. Le système s'est progres- 
sivement étoffé jusqu'à être au- 


jourd'hui particulièrement bien au 
point. 








sageries électroniques, l'éditeur de 
texte au niveau du mot nécessite un 
apprentissage souvent fastidieux de 
touches de commande. 


e Un transfert de fichiers binaire ou 
texte avec acceptation ou refus du 
receveur. C’est l’une des fonctions 
les plus intéressantes de Calvados, 
car elle permet l'envoi de fichiers 
sans nécessiter une connexion simul- 
tanée de l'émetteur et du receveur. 
Bien qu'amelioré récemment, ce 
transfert est encore un peu trop 
compliqué surtout quand il s'agit de 
transférer un fichier provenant d'un 
logiciel de traitement de texte, mais il 
fonctionne très bien. 


e Un accès à des informations tech- 
niques tant sur les matériels que sur 
les logiciels, toutes ces informations 
étant axées sur l’utilisation d’Apples. 


e Un manuel de 46 pages, très soi- 
gné, très complet et rédigé avec hu- 
mour. 


e La disquette de lancement, remar- 
quable de simplicité avec sa procé- 
dure d’auto-connexion. 


Pour un particulier, l'abonnement au 
service Calvados revient à 400 FF 
par mois, et donne droit à cinq 
heures de connexion. L'heure sup- 
plémentaire est de 46 francs la nuit 
et de 75 FF TTC le jour. L’inscrip- 
tion initiale coûte 185 francs : on re- 
çoit alors la documentation, un nu- 
méro de compte et une disquette 
contenant le logiciel de communica- 
tion. 


La communication dans 
la fabrication de Pom's. 


Depuis deux numéros, Pom's utilise 
la communication pour la prépara- 
tion des textes destinés à être pu- 
bliés. Pom's met tous ses textes au 
point en traitement de texte avec Ap- 
plewriter //e, quitte à récupérer et 
transformer les textes écrits par les 
lecteurs à l’aide d'autres traitements 
de texte. Une fois les textes bien mis 
au point en Applewriter //e (AW //e), 
ils les enrichit : cela signifie que l’on 
ajoute des chaînes de caractères 
codées pour, par exemple, indiquer 
un changement de police d'impres- 
sion, une modification du corps (taille 
du caractère), le passage en italiques, 
etc Pom's exploite la capacité 
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d'AW //e à utiliser un glossaire pour 
faire cela rapidement: ainsi, en ta- 
pant sur la pomme ouverte et T si- 
multanément, on fait apparaître le 
code d’enrichissement identifiant un 
titre ”$CC63.45”, ce qui signifie 
passage au corps 45 de la police 63 
(gras). 


Une fois le texte enrichi, il est passé 
dans un programme de conversion 
automatique écrit en WPL, le Word 
Processing Language d'AW //e, qui 
recode les caractères réservés chez 
l'imprimeur. Ainsi, le code ”’$” est ré- 
servé, ce qui veut dire qu'il faut, en 
WPL, transformer les ”’$” du texte 
en une chaîne qui donnera finale- 
ment un ”’$” chez l'imprimeur. 


L'étape suivante consiste à passer le 
texte ainsi obtenu dans un pro- 
gramme, écrit par Logma, qui recode 





tous les caractères dans les codes re- 
connus par l'équipement de photo- 
composition de l'imprimeur. Ce pro- 
gramme effectue aussi des 
transformations de chaînes, par 
exemple pour remplacer par ‘’ê' une 
séquence typique d'AW /'e telle que 
ACTRL-H e”. 


Il ne reste plus qu'à transmettre les 
textes chez l’imprimeur, ce pour quoi 
Pom's utilise à présent une carte 
super série et un modem Satelcom: 
la carte Novation n'est pas utilisée, 
car les programmes de transforma- 
tion sont écrits en Pascal, qui n'est 
pas transmissible avec la carte Nova- 
tion standard. Dans l'heure qui suit la 
transmission, s’il y a urgence, les pre- 
miers bromures sont disponibles. 


En conclusion, Pom's suit les étapes 
suivantes : 


® mise au point des textes en Ap- 
plewriter //e: 


e adjonction des codes d’enrichisse- 
ment en AW //e:; 


e première transformation par un 
programme WPL; 


® recodification avec le programme 
Logma: 


® transmission par modem vers l'im- 
primeur. 


Que gagne Pom's par cette procé- 
dure ? Tout d’abord, il n'est plus né: 
cessaire de perdre toute une semaine 
à corriger les textes des bromures, 
comme ce serait le cas si les textes 
étaient composés manuellement. En 
outre, le coût de la composition est 
réduit de moitié, car il n’y a plus le 
coût de l'entrée manuelle. Voilà une 
application de la communication de- 
venue indispensable. 





Pom’s s’adresse à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées où des programmes à transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewriter I ou II, ou tout 
fichier TEXT) sur disquette et si possible aussi imprimé, au cas où nous aurions du mal à le récupérer. N'oubliez pas 
d'indiquer votre adresse et votre numéro de téléphone ! 


CX Dase 100’ 


LA GESTION DE FICHIERS 
TOUS AZIMUTS. 


d'applications: CX Base 100 est l'outil dulaire: CX Base 100 est un des pro- 
indispensable pour suivre vos clients, vos grammes de CX Système. Si vos besoins 
patients, vos commandes, vos fournis- évoluent, vous pourrez, à tout moment, 
seurs, pour gérer votre trésorerie, votre compléter votre programme et, en parti- 
documentation, vos articles en stocks, culier, accéder à CX Texte pour un traite- 
pour mettre à jour vos tarifs, calculer la ment de texte totalement intégré avec vos 
paie de vos employés, etc. fichiers. 























Nul besoin de connaître l'informatique; 
définissez vous même votre modèle de 
fichier; vous pourrez, à tout moment, 
sans avoir à réécrire les données, ajouter 
ou retrancher des rubriques: classez, 
sélectionnez vos fiches de multiples (En Belgique, Néotron, 37, rue de Florence 
façons, par mots clés ou selon une combi- 1050 Bruxelles) Done | 
naison de critères tels que “égal” “plus . 
grand que” “plus petit que” “différent” a a rm Œ 


CX Base 100 est un logiciel français déve- 
loppé par Contrôle X, et présenté dans un 
coffret luxueux avec une documentation 
complète, abondamment illustrée. 

Contrôle X, Tour Maine- Montparnasse, 33, 
avenue du Maine, 75755 Paris. Cedex 15. 
























“compris entre”; faites toutes sortes de DEMANDE DE 
calculs; corrigez automatiquement une DOCUMENTATION I 


sélection de fiches: présentez les infor- 





mations de votre choix sous différentes Nom I 

formes (états, étiquettes) et dans n'im- I te 

porte quel ordre (alphabétique, numéri- DORÉ I 

que, chronologique), etc. Adresse 

*Actuellement en promotion. I 
Con r ole X Sicob Boutique N°67 Tél. ©] 
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BARS 


ATEN 


| DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


Datalife 


sy Verbatim. 


GS ue PB ! LA DE M ur PÉRR 





Datalife | 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 


- 5 l/4 "en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Des caractères géants à l’imprimante 


Ce programme permet de générer 
rapidement des caractères géants sur 
l'imprimante pour, par exemple, 
donner un titre à un listing, un ta- 
bleau.. Le principe mis en oeuvre ici 
a été repris dans le programme 
d'aide au dessin HGR pour dessiner 
des caractères en haute résolution. 


Analyse du programme 


Il commence par demander la lar- 
geur disponible puis affiche la liste 
des caractères actuellement définis 
(nous verrons plus loin comment on 
peut la modifier]. Tous les ‘caractè- 
res” occupent la largeur de 7 carac- 
tères habituels (1 espace + 5 cases 
+ 1 espace), sauf “1”, “1”, "" et 
l'espace qui en prennent 5. Par 
contre, ils sont tous définis sur une 
hauteur de 7 cases. 


Le programme lit ensuite les DATA 
et les met dans TB%(1J). Pour cha- 
que caractère, il v a 8 données : 


- d'abord, le code ASCII en décimal 
{en 2000, par exemple, on trouve 65 
qui est le code de A): 


- puis 7 nombres. un pour chacune 
des 7 lignes de définition du carac- 
tère. 


Ces nombres sont obtenus de la 
façon suivante : 


Une ligne est constituée de 5 cases 
vides ou pleines, soit O0 ou 1 pour 
chaque case. De là à penser à des 
nombres binaires sur 5 bits (avec bit 
de plus faible poids à droite) il n'y 
avait qu'un pas vite franchi, puisque 
le décodage se fait alors facilement 
au moyen de divisions successives 
par 2. 


Ainsi, le motif <x ***> sera codé 
par : 


1x16 + Ox8 + 1x4 + 1x2 + 1 = 23 


La lettre À sera constituée des motifs 
suivants : 





&  i 
# *#: code 17 
+ ++ code i° 
++E++ code zx! 
* # code f° 
+ #;: code F7 
+ # ade 1% 


Les DATA doivent évidemment se 
présenter dans le même ordre que 
celui des ensembles CD$ et CE$ 
(celui-ci venant en dernier et conte- 
nant les caractères de largeur 5: 1 
espace + 3 cases + 1 espace). 


On voit donc qu'il sera facile à cha- 
cun de développer son propre jeu de 
caractères (ne pas oublier de modi- 
fier en conséquence NC à la ligne 
140 qui contient le nombre total de 
caractères). 


Le programme demande ensuite le 
titre à imprimer. Il vérifie que les ca- 
ractères sont effectivement disponi- 
bles et calcule la largeur nécessaire 
(nous serons informés si le titre est 
trop long). Ensuite, la sortie peut être 
dirigée vers l'imprimante ou vers 
l'écran (ce qui permet de tester sim- 
plement et économiquement de nou- 
veaux caractères). Le titre est en 
outre précédé et suivi de deux lignes 
complètes d'étoiles. 


Remarques 


1) Pour une largeur disponible de 80 
caractères, il faut en fait indiquer 79. 


J.-F Groussin 


2) Le programme, tel qu'il est, im- 
prime un caractère en utilisant pour 
chaque case le-dit caractère (ainsi un 
À est dessiné avec des A) et le gra- 
phisme n'est pas toujours très heu- 
reux. On peut alors, soit modifier les 
codes ASCII dans les DATA, soit 
mettre à la ligne 3050 : X$= ‘x 


Principales variables 


LI : largeur d'impression disponible 


NC : nombre de caractères disponi- 
bles 


CDS: ensemble des caractères de 
largeur 5 cases 


CES: ensemble des caractères de 
largeur 3 cases 


TI (I) : table des caractères du titre 
(numéros des DATA) 


TB%(10): code ASCII du caractère 
à utiliser pour le dessin du caractère 
géant 


TB%(I.J): code du lème caractère 
de la ligne J 


LT : longueur du titre 
A$ : dernier caractère entré 
NT : nombre de caractères entrés 


FG : rang du caractère dans l’ensem- 


ble 


DE : nombre d'espaces à mettre au 
début pour le centrage 


L : numéro de ligne en cours de trai- 
tement 


V : valeur du code 








re 
CE 


INT “E": NORMAL 
140 NC = 39:CD$ = “"ABCDEFGH#JKLMNOPQORSTU 
VWXYZ-23456789":CES = “.11 ‘ 


Programme CARAC 


S REM CARACTERES GEANTS A L’IMPRIMANTE 150 DIM TI%X(30),TB%(NC,7) 
CAPPLESOFT) 155 POKE 34,7 
6 REM ===2==2=-22=2222222222222= 160 FOR I = 1 TO NC: FOR J = O TO 7: RE 
AD TBx(I,J): NEXT J: NEXT I 
100 TEXT : HOME : HTAB 11: PRINT “CARAC 293 REM 
TERES GEANTS": PRINT : INPUT “"LAR 300 REM ENTREE DU TITRE 
GEUR DISPONIBLE: ‘“;:LI 301 REM 
120 PRINT “CARACTERES EXISTANTS: “:: FO 310 LT = O:TIS = ““: HOME : VTAB 10: HTA 
R I = 65 TO SO: PRINT CHRS (I):: B 1: PRINT “TITRE: ‘; 
NEXT : FOR I = 48 TO 57: PRINT 320 FOR I = 1 TO 30 
CHRS (I1);: NEXT : PRINT “ #." 330 GET AS$: IF A$ = CHR$ (13) THEN NT 


130 PRINT : PRINT “LARGEUR DES CARACTER # I - 1:1 = 30: GOTO 500 
ES: 7 SAUF I,1,.,"“;: INVERSE : PR 340 FG = O: FOR K = 1 TO LEN (CDS) 
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350 IF MIDS (CDS,K,1) < > A# THEN 370 2030 DATA 77,17,27,21,17,17,17,17,78,17 


360 FG = K:K = LEN (CDS) ,25,21,21,19,17,17,79,14,17,17,17 
370 NEXT K #17,17,14,80,30,17,17,30,16,16,16 
380 IF FG < > O THEN LT = LT + 7: PRIN | 2040 DATA 81,14,17,17,17,21,19,15,82,30 
T AS:;:TIX(I) = FG: GOTO 500 »17,17,30,20,18,17,83,14,16,16,14 
390 FG = O: FOR K = 1 TO LEN (CES) »1r114,84,31,4,4,4,4,4,4 
400 IF MIDS (CES,K,1) < > AS THEN 420 | 2050 DATA 85,17,17,17,17,17,17,14,86,17 
410 FG = K:K = LEN (CES) 517,17,17,17:10,1:97,21,21:71,21, 
420 NEXT K 21,21,10,88,17,10,10,4,10,10,17 
430 IF FG < > O THEN LT = LT + 5: PRIN | 2060 DATA 89,17,10,4,4,8,16,16,90,31,1, 
T AS;::TIX(I) = FG + 35: GOTO 500 2,4,8,16,31,45,0,0,0,0,31,0,0,50, 
440 PRINT ““;: GOTO 330 14,17,1,2,4,8,30 
500 NEXT I: PRINT 2070 DATA 51,30,1,1,14,1,1,30,52,16,16, 
510 IF LT > LI THEN PRINT “TITRE TROP 16,18,31,2,2,53,30,16,16,28,1,1,2 
LONG“: GOSUB 1100: GOTO 8,54,14,17,16,30,17,17,14 
300 2080 DATA 55,31,1,1,14,4,8,16,56,14,17, 
520 DE = INT ((LI - LT) / 2) 17,14,17,17,14,57,14,17,17,14,1,1 
530 INPUT “IMPRIM=I ECRAN=E ":RS: IF R 114,46,0,0,0,0,6,6,0,73,7,2,2,2,2 
$ = “I THEN PRINT CHRS (4)"PR# ,2,7 
1“: PRINT CHRS (9)"80ON"*; 2090 DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,0 
540 GOSUB 3000 "0,6. 
550 IF R$ = “I” THEN PRINT CHRS (4)"P | 3000 GOSUB 1000: PRINT 
R#O" 3010 FOR L = 1 TO 7 
560 GOSUB 1100: GOTO 300 3020 IF DE = O THEN 3040 
1e KKKHERHÉEHEREHEEEREEEEEEEERERERELELLELELERERELERELEERELRELEERLELRERERLEELELEERERERIX 
4: J 000 Y  Y EFEEE U  U X  X N  N 000  EEEEE L 
Le J 0 O0 YY E TRS RS +: NN ON 0 © E L 
Œ J ‘0: 0 Y E (XX NNN O0 © E L 
#s J- «6 © Y EEEE  U  U X NNN O  O EEEE L 
ë* Ÿ À D E U OU XX N NN O0  O E L 
52 J J 0 0 E U OU XX N ON 0 © E L 
ra. JJJ 000 y EEEEE  UUU X  X NN  O00  EEEEE LLLLL 
He 
es KE HE DE DE 6 6 6 6 6 EX EE 6 EE EE EE JE JE 36 36 6 6 6 6 EE DE DE 26 6 6 DE JE DE DE DE JE JE JE JE JE JE JE DE JE DE JE DE DE DE DE JE JE JE JE JE JE DE EE JE JE DE NE DE DE JE JE JE EE EE 
BBBE 000 N  N N  N EEEEE ABA NN N  N EEEEE EEEEE 
B B OO NN N NN N E À À NN N NN N E E 
B B O0 O©O NNN NNN E A A NNN NNN E E 
BBBB O0 O0 NNN NNN EEEE ABPAA NN N NNN EEEE EEEE 
B B O  O N NN N NN E A À N NN N NN E E 
B B O0 O0 N N N NE A À N N N NE E 
BBBE 000 N  N N  N EEEEE A A N  N N  N EEEEE EEEEE 


KKKKHKKEREEELEEEREHEEEREREHEREREREREEEELLLEREEEELLLLEELREEELEEERHEEEREEERERREXEÉX 


3393 REM 3030 FOR I = 1 TO DE: PRINT “ ‘“;: NEXT 
1000 REM SORTIE 2 LIGNES D’ETOILES I 
1001 REM 3040 FOR I = 1 TO NT 
1010 FOR J = 1 TO 2: FOR I = 1 TO LI: P | 3050 PRINT “ “;:X8 = CHRS (TB%x(TI%(I), 
RINT ‘“#";: NEXT I: PRINT : NEXT J O)):V = TBXCTI%X(I),L) 
: RETURN 3060 IF TIX(I) > 3S THEN 3090 
1100 VTAB 23: HTAB 1: CALL - 9S8: PRIN | 3070 IF INT (V / 16) = 1 THEN PRINT X 
T “TAPER UNE TOUCHE ";: GET RS: P #;::V = V - 16: GOTO 3080 
RINT R$: RETURN 3075 : PRINT “ ‘; 
1500 REM 3080 IF INT (V / 8) = 1 THEN PRINT XS 
1510 REM LES DATA DEFINISSENT LES CARA 3:V = V - 8: GOTO 3090 
CTERES 3085 : PRINT *“ *; 
1520 REM 3090 IF INT (V / 4) = 1 THEN PRINT X$ 
2000 DATA 65,14,17,17,31,17,17,17,66,3 3:V = V - 4: GOTO 3100 


0,17,17,30,17,17,30,67,14,17,16,1 3095 : PRINT * “; 
6,16,17,14,68,30,17,17,17,17,17,3 3100 IF INT (V / 2) = 1 THEN PRINT Xs 
[e) 3:V = V - 2: GOTO 3110 

2010 DATA 69,31,16,16,30,16,16,31,70,31 3105 : PRINT * “; 
»16,16,30,16,16,16,71,14,17,16,19 3110 IF V THEN PRINT X$;: GOTO 3120 


»17,17,14,72,17,17,17,31,17,17,17 3115 : PRINT * ‘:; 
2020 DATA 35,10,10,31,10,31,10,10,74,1, 3120 PRINT “ ‘“;: NEXT I: PRINT : NEXT L 
1,1,1,1,17,14,75,17,17,18,28,18,1 5 PRINT : GOSUB 1000: RETURN 


7,17,76,16,16,16,16,16,16,31 


AE EEE 
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Chargement automatique de l’Integer 


En essayant d'explorer le DOS 3.3, 
j'ai découvert qu'il avait sans doute 
été conçu à l'origine pour être utilisé 
sur Apple Il et non sur Apple II+ ou 
Ile et que si, ayant besoin du langage 
Applesoft, il ne le trouvait pas en 
ROM ou sur la carte langage, il es- 
savait automatiquement de le charger 
en RAM. 


Possédant pour ma part, et comme 
beaucoup, un Apple II+ , j'ai adapté 
les routines correspondantes pour 
obtenir un chargement automatique 
du BASIC Entier dans la carte lan- 
gage quand la nécessité s’en fait sen- 
tir. 


Si le BASIC Entier est déjà chargé 
dans la carte, tout se passe normale- 
ment. 


S'il ne l’est pas, on peut utiliser les 
instructions suivantes : 


— INT: le BASIC Entier est chargé 
automatiquement, mais l’on reste 
provisoirement en Applesoft jusqu'au 
INT suivant. 


- LOAD PROG (où PROG est le 
nom d’un programme en BASIC En- 
tier) : le BASIC est chargé automati- 
quement avant le programme. 


— RUN PROG : le BASIC Entier est 
chargé automatiquement, puis le pro- 
gramme est chargé à son tour et exé- 
cuté. 


Ceci suppose bien entendu que le fi- 
chier "BASIC Entier” soit présent sur 
la disquette. Dans le cas contraire, le 
message classique ‘LANGUAGE 
NOT AVAILABLE” sera envoyé. 


Î n'y a donc plus à se préoccuper de 
charger à l'avance le BASIC Entier 
et, du point de vue de l'utilisateur, il 
n'y a plus de différence de manipula- 
tion des différents programmes en 
fonction du langage. On peut notam- 
ment, sans autre précaution, ‘’boo- 
ter” sur un programme d'acceuil 
(HELLO) en BASIC Entier. 


Concrètement, les opérations à effec- 
tuer sont les suivantes : 


a) Modifier le fichier INTBASIC 
fourni avec la disquette SYSTEM 
MASTER pour qu'il se charge à son 
adresse d'exécution (ce qui, curieuse- 
ment, n’est pas le cas d’origine ! }. 
Pour cela, il suffit de charger norma- 
lement le BASIC Entier (en ‘’boo- 
tant” sur la disquette Master par 
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exemple) et de taper, depuis ce lan- 
gage (après INT) : 


BSAVE ENTBASIC,A$D000,L$3000 


(ENTBASIC est le nouveau nom que 
j'ai donné à ce fichier pour le distin- 
quer de l'ancien). 


b) Effectuer les modifications suivan- 


tes en mode moniteur (après avoir 
tapé CALL -151): 


9D4A:9D 45 79 


JDFO:EA EÂ EA EA EA ER EA EA EA ER EA 


A4BD:06 

A4D6:EE 

AS06:AD 81 CO AD 81: CO 4C 5D À3 OÙ 
A97B:20 20 B2 AS FO 29 49 40 
AS9C:06 A5 A9 4C 20 B2 45 FO 04 
AAB8:CS CE D4 C2 C1 D3 C9 C3 AQ 
3006 pour revenir au BASIC. 


Les valeurs ci-dessus correspondent 
à un DOS installé dans 48K. Pour 
obtenir une disquette contenant ce 
DOS modifié, il suffit de l'initialiser 
après les avoir introduites. Vous pou- 
vez également utiliser le petit pro- 
gramme d'accès direct à la disquette 
présenté dans ce numéro pour trans- 
former le DOS sur une disquette déjà 
initialisée, en recopiant sur les sec- 
teurs concernés les pages mémoire 
modifiées (cf. ci-dessous). 


Par contre, si l’on veut modifier di- 
rectement une disquette mère (copie 
de la disquette System Master, ou 
disquette initialisée avec le même 
DOS que cette dernière), il faut dimi- 
nuer les valeurs soulignées de 80. Le 
relogeur du DOS les rétablira auto- 
matiquement à leurs valeurs d'utilisa- 
tion. Pour réaliser cette opération 
avec un programme d'accès direct, il 
faut charger les secteurs en mémoire 
à leurs adresses réelles (avant inter- 
vention du relogeur), soit 1D00, 
2400, 2500, 2A00, puis faire les mo- 
difications et recopier les secteurs à 
partir de ces mêmes adresses. 


Pour mémoire, voici les pistes et sec- 
teurs concernés : 


Page mémoire 


Linie Piste Secteur 
9D 00 € 
Âd Ûi 3 
Â5 Qi à 
FA ûi 9 


Jean-Michel Clin 


Je signale à ceux qui ne le savent 
pas (et la documentation est extré- 
mement discrète sur ce point) que le 
fichier INTBASIC (et donc ENTBA- 
SIC) contient, outre le BASIC En- 
tier : 


e Le mini-assembleur 


e Sweet-16 
e Les routines de calcul en virgule 
flottante utilisables depuis le 


BASIC Entier 


e Tout le Programmer's Aid # 1” 
(utilitaires de complément au 
BASIC Entier) : 


Renumber 

Append 

Tape Verify (BASIC) 
Tape Verify (binaire) 
Relogeur de prog. binaire 
Testeur de RAM 
Routines de musique 
Routines de dessin HGR 


Je serais en revanche curieux de sa- 
voir ce qui se trouve dans la zone 
$D800-$D8FF ! 


Par ailleurs, j'ai beaucoup apprécié le 
“patch” proposé dans le numéro 2 
de Pom's permettant d'afficher à 
chaque CATALOG le nombre de 
secteurs encore libres sur une dis- 
quette. 

J'ai toutefois regretté qu'il supprime 
la fonction INIT du DOS et vous en 
propose ci-dessous une adaptation 
qui évite cet inconvénient : 


ADC3:20 49 £a 


BA69:42 0C 20 A F9 A9 O0 85 45 85 
4j A0 C8 18 89 F2 B3 F0 0E DA 
90 FR 48 Eé 40 DO 02 Eé 41 66 
18 90 FO 88 DO ES A9 48 20 ED 
FD 4C 9F BC 00 


BCDF:A6 40 AS 41 AC 00 ED CO 20 D 
Gé 20 1B E5 18 90 93 26 24 ED 
AS 49 20 ED FD 20 2F AE 40 00 
06 00 08 


Ici encore, le “patch” est donné pour 
un DOS installé dans 48K. Il faut di- 
minuer les valeurs soulignées de $80 
pour 16K et de $40 pour 32K. 


Si la modification doit être faite sur 
une disquette mère, il ne suffit plus 
de procéder comme pour un 16K, 
car on a utilisé ici des zones qui ne 


TRGMNTERETEE 
14% AATTIS 
RAA RSR ETR SR 
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sont pas modifiées normalement par 
le relogeur du DOS. Ce dernier doit 
donc être adapté de la façon sui- 
vante : 


1C68 : AB 3F 
IC6E : 69 34 96 3A 

















Les pistes/secteurs concernés sont : 


VENEZ DECOUVRIR À “*"""" 


AD 01 € 
BA 00 4 
BC 0û é 
iC oû B (relogeur) 


UNE NOUVELLE En. 
APPROCHE De SR vs 
DES PROBLEMES 
GRAPHIQUES 


Enfin... un véritable système conçu pour le Dessin Assisté 
sur Ordinateur personnel APPLE II pour tracer vos plans, 
schémas, diagrammes, figures, avec sortie sur table traçante au 
format A4, A3, A0. 


DR RRN PER EERREEE 


Abonnez-vous à Pom’s 


MINIGRAPHE se tient à votre disposition 

pour une démonstration des multiples possibilités du système 
ROBOGRAPHICS. | La vie de votre revue dépend de 
son nombre d'abonnés. Plus vous 
êtes nombreux, plus nous pou- 
vons vous rendre service, par 
l'augmentation correspondante de 
nos moyens comme par le plus 
grand nombre de contributions 
que nous recevrons forcément de 
vous. Nous avons volontairement 
choisi une politique de disquettes 
à bon marché ; ainsi, lorsque vous 
vous abonnez avec disquettes, 
chaque disquette vous revient à 
moins de 50 francs TTC, port 
compris ! Un abonnement à qua- 
tre numéros coûte aujourd'hui 
325 francs. Cela ne sera-t-il pas 
largement amorti si une seule 
des 200 pages de texte que vous 
trouverez en quatre numéros vous 
résoud ce problème sur lequel 
vous séchez (on a vite fait de per- 
dre deux ou trois jours sur un pro- 
blème) ? 

Dans de nombreux numéros, 
nous vous avons offert des pro- 
grammes comparables à ceux qui 
sont vendus de 250 à 500 francs 
dans les boutiques. Profitez-en ! 


Appelez nous au 608-44-31 pour prendre rendez-vous. 


Vus, fsb 


N 
> 


S 


: Concessionnaire agréé 


MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès, 92100 Boulogne 
Tél. 608.44.31 
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Décisionnel Graphique à l’essai 


Décisionnel Graphique est un éditeur 
graphique réalisé et vendu par ADDE 
Marketing 2312 FF TTC. Il se pré- 
sente avec une documentation en 
classeur (comme tous les produits ré- 
cents), deux disquettes de travail 
"CREATION-MA.J.” et "VISUALI- 
SATION” et une disquette de dé- 
monstration et d'apprentissage bapti- 
sée "VISITE GUIDEE”. 


Il est destiné à visualiser des séries de 
données chronologiques sous forme 
de courbes, diagrammes et histo- 
grammes. 


Il nécessite un APPLE II ou APPLE j//e 
de 48K minimum, avec deux lecteurs 
de disques souples et une impri- 
mante graphique. Les imprimantes 
prévues d’origine sont l’'Epson avec 
carte Epson, la Seikosha avec carte 
Seiko et différents modèles avec 
carte MID.P2. 


Mode d'analyse 


Nous évaluons les avantages et in- 
convénients de Décisionnel Graphi- 
que — appelons-le DG — en fonction 
de ce qu'un utilisateur est en droit 
d'attendre d'un éditeur graphique, 
avec parfois référence implicite ou 
explicite à d’autres logiciels de même 
objectif. Ils sont présentés sous 8 
têtes de chapitres : 


Approche du logiciel 

La gestion des données 
Manipulation des données 
Le tracé des graphiques 
Les fonctions auxiliaires 
L'édition sur imprimante 


Utilitaires : gestion des disques, 
liaisons externes 


SON Sr D, 


8. Documentation 


Un tableau final précise les comparai- 
sons entre les fonctionnalités de DG 
et d’autres éditeurs graphiques. 


1. Approche du logiciel 


L’abord du logiciel est assez aisé, et 
la disquette "VISITE GUIDEE” est 
une très bonne idée. Les comman- 
des sont clairement expliquées, ce 
qui fait qu'on se passe aisément 
d’une fonction AU SECOURS”. 
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On peut toutefois regretter deux op- 
tions prises par les auteurs : 


e le mouvement du curseur par 
CTRL I,J,K,M 


e la désignation 


ésotérique des 
séries par 6 lettres 


Avantages : Simplicité d'emploi - 
Séparation des fonctions d'entrée de 


données et de tracé - Choix 
commode dans une ligne de 
commande. 


Inconvénients : Obligation d'utiliser 
2 disques-programme - Temps relati- 
vement long entre 2 options - Quel- 
ques manoeuvres peu ‘conviviales” - 
Usage fréquent, voire abusif, des 
abréviations. 


Synthèse : DG a ses avantages et 
ses inconvénients, comme chaque lo- 
giciel. Aucun point négatif ne mérite 
d'être mis en exergue. Au crédit de 
DG, l'idée de la "VISITE GUIDEE”. 


2. Gestion des données 


On peut parler de professionnalisme 
à ce niveau: structuration de la 
Base de Données” avant tout travail 
de création, fonctions de création et 
mise à jour explicites, séries de don- 
nées coordonnées entre elles, mot de 
passe pour protéger une disquette 
(ce qui est trop rare en micro-infor- 
matique). 


De même, la possibilité de réutiliser 
une structure existante, en la modi- 
fiant ou non, est intéressante. 


On regrettera parfois que le logiciel 
soit exclusivement tourné vers la re- 
présentation de séries chronologi- 
ques, ce qui conduira à des ambiquï- 
tés de langage quand on voudra 
représenter d'autres types de séries 
(ce “reproche” pourrait d'ailleurs 
s'adresser à bien d’autres éditeurs 
graphiques). 


Avantages : ‘Solidité” du système 
de gestion des données - Structura- 
tion de la base - Protection par mot 
de passe - Bon traitement des dates 
(départ, périodicité …). 


Inconvénients : Système parfois un 
peu lourd à manier - Trop d’accent 
mis sur la chronologie. 


Guy Lapautre 


Synthèse : La gestion des données 
est le point fort de DG, par rapport à 
ses concurrents. On pourra parfois 
regretter une certaine lourdeur, mais 
c'est le prix qu'il faut payer pour as- 
surer un bon niveau de sécurité. 


A ce titre, DG apparaît comme un 
peu plus qu’un simple éditeur graphi- 
que, en remplissant une partie des 
fonctions normalement dévolues à 
un logiciel de gestion de fichiers. 
C'est ce qui le distingue principale- 
ment des autres traceurs de graphes. 


3. Manipulation des 
données 


Nous entendons sous ce titre la pos- 
Sibilité d'effectuer des calculs sur les 
valeurs d’une série de données ou 
de combiner plusieurs séries, de 
façon à obtenir de nouvelles séries, 
elles-mêmes susceptibles de repré- 
sentation graphique (voire de servir 
de base pour de nouveaux calculs). 


DG possède quelques fonctions pré- 
programmées intéressantes (cumul, 
taux de croissance, indice base 100, 
movenne mobile) 


Il ne possède en revanche, malgré 
son sous-titre ‘gestion graphique de 
base de données statistiques”, au- 
cune fonction statistique évoluée. 


Avantages : Manipulation aisée des 
fonctions préprogrammées - Variété 
des possibilités de leur emploi-Pro- 
grammation d'opérations  arithméti- 
ques sur une série ou entre plusieurs 
séries. 


Inconvénients : Aucun outil statisti- 
que fin, donc ni lissage ni ajustement 
- Pas d'opérations autres qu'’arithmé- 
tiques. 


Synthèse - Sans être d’une faiblesse 
criante, DG souffre, en comparaison 
avec d’autres éditeurs graphiques 
classiques, de l'absence totale d'outil 
statistique approfondi. Il ne permet 
donc pas de faire des études de ten- 
dance ou des projections. 


Cette lacune est d'autant plus gé- 
nante qu'on peut être alléché par 
l'apparence statistique donnée au 
produit, jusque dans son sous-titre. 








4. Tracé des graphiques 


La palette offerte comprend le tracé 
de lignes, de diagrammes à barres et 
d'histogrammes. Il est possible de 
travailler sur plusieurs séries de don- 
nées simultanément, ou sur une par- 
tie seulement des séries. 


Il manque le tracé de diagrammes 
circulaires (communément dénom- 
més ‘’camemberts”). 


L'appel des séries à représenter ne 
se fait pas en clair, mais par code à 6 
lettres, certes rapide à former (d’au- 
tant qu'on peut encore le compri- 
mer), mais beaucoup moins facile à 
interpréter et à mémoriser. 


Avantages : Tracés rapides, super- 
positions aisées - Appel rapide, 
quand on est très familier avec le 
système complexe d’abréviations. 





Inconvénients : Pas de titre - Pas 
d'option couleurs - Une seule fenêtre 
sur l'écran. 


Synthèse : DG se révèle particuliè- 
rement pauvre dans ce domaine, 
même en comparaison avec des logi- 
ciels apparemment moins ambitieux. 


L'absence de possibilité de titrage est 
même très qênante, et suffira sans 
doute à éloigner de nombreux utilisa- 
teurs (cette possibilité existe dans la 
version Sirius/Victor et IBM PC). 


6. Edition sur 
imprimante 


Il est possible d'imprimer, d’une part 
des tableaux de chiffres, d'autre part 
des graphiques, et ce en simple ou 
double dimension. 


Un choix d'imprimantes est proposé 


entre les options des programmes. 
Nous avons aussi souligné la sécurité 
dans la gestion des données. Ajou- 
tons la possibilité de mêler des infor- 
mations en provenance de plusieurs 
disquettes. 


Par ailleurs, DG permet, très commo- 
dément, l'accueil de données en pro- 
venance de Visicalc ou de Multiplan 
(sous réserve bien entendu d’avoir 
pris quelques précautions élémentai- 
res au moment de la confection des 
tableaux). 


Avantages : Système ouvert à deux 
tableurs” très connus - Sécurité 
poussée dans la gestion des données 
sur disque. 


Inconvénients : Quelques temps 
d'attente, utilisation de deux disques 
pour les programmes - Absence 
d'une option permettant de sauve- 
garder des graphiques sur disque. 


%a : _ : en standard, avec une large place ac- 

de se ne tr Esotérisme des dé-  cordée aux imprimantes graphiques Synthèse : Les avantages l'empor- 
sa ne re ennuyeuse a avec la carte MID.P2. tent ici très nettement sur des incon- 
La out permet de penser que les au- vénients somme toute mineurs. Il ne 


EE] teurs mettront un point d'honneur à 
gas Synthèse : Les principaux concur- ajouter à cette liste l'imprimante ma- 
EE] rents de DG comportent une option tricielle Apple avec sa carte graphi- 
SA diagrammes circulaires, que la pré- que. 

et sence d’une fonction histogramme ne 
© suffit pas à remplacer (cette option 
Es existe d’ailleurs dans la version écrite 
En pour Sirius/Victor et IBM PC). 


devrait pas être trop difficile pour les 
concepteurs d'ajouter une option de 
sauvegarde de graphiques. Ceci au- 
rait l'avantage de permettre une im- 
pression différée (et à cette occasion 
L'utilisation d’autres imprimantes de TITRER le travail exécuté !). 
pose un problème complexe de pa- 

ramétrage. Empressons-nous de dire 





Le système des abréviations codées 
pour désigner les séries plaira à cer- 
tains, d'esprit très informaticien”, 
mais risque de rebuter le gestionnaire 
habitué à parler son propre langage. 


5. Les fonctions 
auxiliaires 


Ce sont les fonctions dont la pré- 
sence permet de modifier les repré- 
sentations, de les agrémenter, de les 
commenter, etc. 


On trouve dans DG des fonctions de 
changement d'échelle sur les deux 
axes, permettant la réalisation d’une 
astucieuse fonction ‘zoom’, peu 
courante sur les logiciels de ce type 
(qui ont plutôt tendance à refuser un 
changement d'échelle ne permettant 
pas une représentation complète des 
séries étudiées). 


En revanche, une lacune très grave 
est l'absence de fonction titrage, sur- 
tout combinée à l’ésotérisme signalé 
précédemment pour la désignation 
des séries. 


Avantages : Changements d'échelle 
commodes - Fonction zoom”. 





que cette complexité n’est nullement 
spéciale à DG. 


Avantages : Deux possibilités de di- 
mensions d'impression (ce qui est ex- 
ceptionnel) - Un honnête choix d’im- 
primantes préparamétrées. 


Inconvénients : Absence de titres - 
Paramétrage peu simple d’impriman- 
tes non prévues (mais pas plus 
qu'avec d’autres logiciels). 


Synthèse :  L’impossibilité, dans 
l'utilisation en base de données (et 
non pour les séries manuelles), de ti- 
trer les graphiques est particulière- 
ment ennuyeuse dès qu'on imprime 
ces graphiques. Si, en effet, au mo- 
ment où l’on travaille sur écran, il est 
relativement facile de savoir que 
PAFRRN représente les ventes hors 
taxes du Produit À, en FRance, Ré- 
gion Nord, et PAEXAN les ventes du 
même produit, à l'exportation en 
Afrique du Nord, selon les données 
connues au jour de l'établissement 
du graphique, trois mois après, au 
milieu d’une collection de graphes... 


7. Utilitaires 


Nous avons déjà signalé des temps 
de transit relativement importants 


8. Documentation 


La documentation, en français, 
comporte deux parties distinctes. 


La première, Visite Guidée, permet 
de suivre la démonstration proposée 
par la disquette correspondante, et 
de se familiariser avec la majeure 
partie des commandes courantes. 
Nous avons eu l’occasion de lire 
dans la presse que cela prenait envi- 
ron trois quarts d'heure. Oui, pour ce 
qui est de survoler. Non, pour ce qui 
est d'apprendre. Heureusement! Il 
n'existe pas de logiciel sérieux qu’on 
puisse apprendre en trois quarts 
d'heure. 


La seconde est classiquement pré- 
sentée par fonctions. 


Avantages : Français de bonne qua- 
lité - Visite guidée bien pratique pour 
une première familiarisation - Ni er- 
reur, ni lacunes graves (en tous cas, 
nous n’en avons pas trouvé). 


Inconvénients : Présentation un 
peu austère (par rapport à des 
concurrents U.S.) - Absence d'un ta- 
bleau synoptique. 
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Gestion des données 


Clef de protection 
Structuration préalable 


Accueil de données exogènes 
Visicalc 
P.FS. 
Muitiplan 
Appleplot 
Fichiers DOS 
Fichiers PASCAL 


Désignation des abscisses : 
Nombres 
Dates 
Libellés 


Echange abscisses/ordonnéees 
Plusieurs fichiers coordonnés 


Désignation des séries : 
Noms en clair 
Noms codés 


Manipulation des séries 
de données 





Synthèse - Pas de critique fonda- 
mentale - Pas de louanges excessives 
non plus. 


Conclusion 


Premier outil d'aide à la décision gra- 
phique français, DG est séduisant par 
bien des côtés, mais certaines fonc- 
tionnalités lui manquent cruellement. 


Parmi ses faiblesses : L'absence 
d'une fonction de tracé de diagram- 
mes circulaires - L'absence de toute 
possibilité de titrage des graphiques - 
Le manque de fonctions statistiques. 


et, à un moindre titre : L'ésoté- 
risme de la désignation des séries - 
Quelques temps d'attente entre op- 
tions - L'impossibilité de sauvegarder 
des graphiques sur disque. 


Parmi ses forces : Un système 
“professionnel” de gestion des don- 
nées - Un apprentissage rapide des 
principales options avec la "visite qui- 
dée” - Des fonctions intéressantes de 
manipulation de séries (hors statisti- 
ques) - L'accueil aisé de séries exo- 
gènes (Visicalc, Multiplan). 


et, à un moindre titre : D’habiles 


LE 


THRARIFTIURS 


PRETTY E PRÉ ÉTIET 


SERFEGE 


Interpolation : options de changement d'échelles-Un ms 
Arithmétique * jeu convenable d'imprimantes prépa- : 
Géométrique * ramétrées (auquel les lauréats de la 
Ajustements divers * “Pomme d'Or’ auront à coeur 

d'ajouter l'imprimante matricielle 

Cumul * * Apple). 

Taux de croissance * * 

Indice Base 100 x DG est un logiciel agréable à utiliser 

Moyenne mobile * * dans l'ensemble, même si si est 
: parfois énervé par le mode de dési- 

Re | gnation des séries ou certains mou- 

roite e regression Lé vements du curseur par touches de 
Lissage exponentiel * contrôle. 
Logarithmique, parabolique 
sinusoïdal * On sera séduit par la qualité de son 
Fr RES système de gestion de données, mais 

Opérations FAFANE SENS déçu par l'absence de certaines fonc- 
Arithmétiques . ji * tionnalités qu'on est maintenant ha- 
Mathématiques diverses bitué à rencontrer dans les éditeurs 
Déplacement à gauche ou graphiques. 

à droite * * 
Eu tr Il est possible à notre avis de se fami- 

Opérations entre séries : liariser avec les principales comman- 
Arithmétiques | * S des du logiciel en moins d’une demi- 
Mathématiques diverses * journée, quelques heures de pratique 

étant ensuite nécessaires pour maîtri- 

Graphiques ser les différentes options. 

Types de graphiques : 

Lignes | = * Pour les utilisateurs d'Apple //e : 
Barres verticales * * ATTENTION à la touche ”’CAPS 
Barres horizontales * LOCK”, qui doit toujours être enfon- 
Histogrammes * * cée : dans le cas contraire, le logiciel 
Circulaires (« camemberts ») * ne comprend rien”, refuse toute en- 


f(x,y) 


trée sur la ligne réservée, ne prévient 
pas et se bloque totalement. 


és ÉTÉ & PRE PPECPCRE CE 2 20 
, o 
Pom's n° 10 51 





















Titrage : 
Haut 
Bas 
Vertical 
Mobile horizontal 
Mobile vertical 


Options principales : 
Modification des échelles 
Effet de « zoom » 
Couleurs 
Fenêtres 


Impression des graphes : 
Dimension normale 
Grande dimension 


(1) Dans la version 7.0 
Remarques de synthèse 


Visiplot est en général bien placé, 
sans grandes lacunes. Il permet en 
particulier des calculs très variés sur 
les séries (à condition d’être accom- 
pagné de VISITREND). 

Ses options graphiques et de titrage 
sont très satisfaisantes. 


Business 
complet. 


Graphics est le plus 


On pourra parfois regretter qu'il ne 
« connaisse » que les quatre opéra- 
tions au niveau de la manipulation 
des séries. 


PFS Graph est un outil beaucoup 
plus modeste, créé surtout pour re- 
présenter les séries issues de PFS 
FILE. 


Il possède néanmoins d’utiles possibi- 
lités de tracés autres. 





Commentaires de ADDE 
Marketing 


La version 7 est disponible sur Apple 
depuis la mi-novembre. Le pro- 
gramme se présente maintenant sous 
la forme d’une disquette unique réu- 
nissant ‘CREATION-M-A-J” et 
"VISUALISATION”. La version 7 
comprend la fonction Ecriture qui 
permet d'écrire, en normal ou in- 
verse, des commentaires sur toutes 
les formes de représentation graphi- 
ques. Ces commentaires sont dépla- 
çables en tout point de l'écran. 


Les possesseurs d'anciennes versions 
peuvent bénéficier, contre un règle- 
ment de 350 F HT accompagné de 
la preuve d'achat du logiciel, de la 
version 7: ils recevront alors en 
échange la nouvelle disquette pro- 
gramme et le supplément de docu- 
mentation. 





On regrettera qu'il n’y ait guère de 
possibilités de manipulation des 
séries. 

Décisionnel Graphique trouve son 
principal point fort dans une gestion 
« professionnelle » des données. On 
regrettera principalement l'absence 
d'une option de graphique circulaire, 
et peut-être plus encore l'absence de 
titres (dans les versions antérieures à 
la récente version 7.0) 


Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 


SEMINAIRES 
INTERNES SUR 


APPLE ET IBM PC : 


SEMINAIRES 


INTERNES  ANIMES 


PAR 
HERVE THIRIEZ : 


logma 


e formation et conseil sur l’utilisation de tableurs : utili- 
sation de base et utilisation avancée 


e analyse des tableaux conçus dans 


l’entreprise et 


conseils pour l’amélioration de ces tableaux 
e transfert de fichiers et communication entre Apple et 


IBM PC 


e lien entre Applewriter et des équipements de photo- 


composition 


e formation à la micro-informatique de gestion 


e utilisation de Multiplan Apple et IBM PC 


e expertise sur l’utilisation de tableurs 


- 12, rue d'Anjou - 78000 Versailles - Tél. : (3) 951.24.43 
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INPUT généralisé de tableaux 


Dans le numéro 6 de Pom's, nous 
vous avions proposé une petite rou- 
tine-assembleur d'INPUT généralisé 
assurant le contrôle des saisies-clavier 
caractère par caractère, en fonction 
du type de donnée attendu (alpha- 
numérique, numérique ou date). 


Dans cette version initiale, le passage 
des paramètres (tabulation, longueur 
de la donnée...) et l'affectation des 
valeurs entrées aux variables étaient 
réalisés au niveau du BASIC par des 
instructions PEEK et POKE. De 
même, la gestion de l'écran dans son 
ensemble (saisie d'un tableau de va- 
riables alphanumériques, passage à 
l'indice suivant ou à l'indice précé- 
dent...) relevait d'une boucle d’ins- 
tructions BASIC. 


La routine présentée ci-après s’arti- 
cule autour du même sous-pro- 
gramme d'analyse de caractères, 
mais elle s'appelle directement au 
moyen de ”&” et permet la saisie 
complète de tableaux de variables, 
avec manipulation des indices, ainsi 
que l'affectation immédiate des va- 
leurs à ces variables. 


Principes d’utilisation 


Lorsque vous concevez votre pro- 
gramme, vous êtes amené à définir 
les différentes données qui seront en- 
trées au clavier, les variables corres- 
pondantes, et la façon dont se pré- 
sentera l'écran au moment de la 
saisie. Par exemple, vous prévoyez 
un nom de 30 caractères à la co- 
lonne 5 de la ligne 4, un prénom de 
20 caractères à la colonne 10 de la 
ligne 6, l’âge sur 2 chiffres à la co- 
lonne 5 de la ligne 8 … Vous pouvez 
ainsi définir, pour chacun de vos 
écrans de saisie, un tableau de para- 
mètres et une variable dimensionnée 
(1 seule dimension autorisée ici) ”ré- 
ceptrice” des entrées. 


Le programme Applesoft CRETAB a 
pour but de préparer et de mémori- 
ser l'ensemble de ces tableaux pour 
une application donnée. Il vous de- 
mandera pour chacun : 


e le nom de la ‘variable-tableau” 
(une seule lettre) 


© le nombre de variables (ou d'’indi- 
ces) dans ce tableau 


e pour chacune de ces variables : le 
type (1 pour alphanumérique, 2 
pour numérique et 3 pour une 
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date), la longueur maximale auto- 
risée, le VTAB (compté à partir de 
0) et le HTAB (compté à partir de 
O). 


Ce descriptif de l’ensemble des 
écrans de votre application sera en- 
suite sauvé sous un nom qu'il vous 
appartient de choisir et vous pourrez 
le charger ultérieurement par un 
BLOAD pour l'utiliser dans votre 
programme. 


Supposons ainsi que l’un de vos ta- 
bleaux soit baptisé Z et qu'il 
comporte 6 variables (ou iüidices). 
Dans le programme, l'instruction &lIZ 
aura pour conséquence la saisie 
(avec tabulation, contrôle de type et 
de longueur) de 6 données que vous 
retrouverez ensuite en Z$(0), Z$(1) 
… Z$(5). Les autres instructions pos- 
sibles sont : 


&PZ : affiche le contenu des varia- 
bles (toujours avec la même tabula- 
tion) 


&MZ : modification des variables 


&EZ : efface les valeurs affichées, 
sans affecter le reste de l'écran. 


Le RETURN permet de passer à la 
variable suivante, et ce jusqu'à la fin 
du tableau en cours (en modification, 
un RETURN en première position re- 
vient à reprendre la valeur affichée). 
La touche ESC, tapée en première 
position sur une zone de saisie, per- 
met de remonter à la variable précé- 
dente; s’il s’agit de la toute première 
variable, ESC provoque une sortie 
de la procédure ”&”. 


Quelques détails. 


Le descriptif des tableaux est 
"POKé” en mémoire par CRETAB à 
partir d’une adresse qu'il vous pré- 
cise en fin de traitement pour que 
vous puissiez l'utiliser dans votre pro- 
gramme et notamment fixer votre 
HIMEM. Il se présente sous la forme 
suivante (avec AO = adresse de 
début) : 


e A0: code ASCII de la lettre défi- 
nissant le premier tableau 


@ A0O+1: nombre d'éléments dans 
ce tableau 


e A0+2 et A0+3 : nombre d'octets 
occupés par ce tableau à partir de 
AO, sous forme octet bas-octet 
haut (soit N ce nombre) 


Gérard Michel 


e pour chaque élément du tableau, 
4 octets pour définir type, lon- 
gueur, VTAB et HTAB 


@e AO+N: lettre définissant le ta- 
bleau suivant s’il existe, et ainsi de 
suite. 


Par ailleurs, nous n'avons pas utilisé 
la procédure de l’Applesoft pour la 
recherche d’une variable dimension- 
née dont on connaît le nom, mais 
une petite sous-routine qui 
commence en SZ dans la liste du 
programme-source IG. Il peut donc 
être utile de donner ici quelques pré- 
cisions sur la façon dont l'Applesoft 
stocke les tableaux de variables. 


L'instruction DIM ZZ$(x) sera mémo- 
risée de la façon suivante dans la 
zone des tableaux de l’Applesoft : 


— code ASCII de Z 


— code ASCII de Z augmenté de $80 
(pour les variables alphanumériques, 
le code ASCII de la deuxième lettre 
du nom est toujours augmenté de 


$80) 


— nombre d'octets occupés par le ta- 
bleau (ce nombre est sous la forme 
octet bas-octet haut) 


— nombre de dimensions, soit 1 dans 
notre exemple 


— nombre d'éléments dans cette di- 
mension, soit x+ 1 


— ensuite, 3 octets pour chaque élé- 
ment, où seront stockées : 


. la longueur de la chaîne de caractè- 
res associée à la variable 


l'adresse de cette chaîne (sous 
forme octet bas-octet haut) 


Pour retrouver une variable d’après 
son nom, on se place donc au début 
de la zone des tableaux dont 
l'adresse AO est donnée en $6B-$6C 
et on regarde si les valeurs contenues 
en AO et AO+1 correspondent au 
nom de la variable. Si ce n’est pas le 
cas, on ajoute à AO le nombre qui se 
trouve en AO+ 2/ AO+ 3 et on re- 
commence... 


Remarques pratiques 


1) Par souci de simplification, le pro- 
gramme CRETAB présenté ici est ré- 
duit à sa plus simple expression. En 
particulier, il ne contrôle pas si la let- 
tre (nom de variable) affectée à un 








tableau n'a pas déjà été utilisée. Il 
vous appartient donc de rajouter ce 
contrôle, ou de prendre un minimum 
de précautions lorsque vous affectez 
les noms de variables. 


Par ailleurs, en modification des pa- 
ramètres entrés initialement pour un 
descriptif de tableaux, la fin du des- 
criptif ne sera pas testée. Si vous 
allez au-delà du dernier tableau, le 
programme affichera un tableau sans 
lettre; repondez alors O aux deux 
questions (OK? et FINI?) pour ache- 
ver la procédure. 


2) En plaçant directement les chaînes 
de caractères sous HIMEM dans la 
routine (sans utiliser la procédure 
correspondante de l'Applesoft), on 
court-circuite le contrôle opéré sur la 
place disponible par FRE(0). En re- 
vanche, nous employons la routine 
de ‘’Garbage” présentée dans le nu- 
méro 2 de Pom's (version avec test 
sur la place disponible, baptisée 
FRE(2) dans le programme de dé- 
monstration ci-après), appelée par 
JSR FRE à la fin de la saisie d'un 
tableau. 


Si vous avez égaré votre Pom's No 
2, ou si vous n'avez pas la disquette 





du présent numéro, vous devez sup- 
primer tous les JSR FRE dans la rou- 
tine de saisie et ne pas omettre dans 
vos programmes d'application des 
FRE(0) périodiques (vous pouvez 
aussi remplacer l'adresse de notre 
FRE ($927C) par celle du FRE de 
l'Applesoft ($E484) au sein de la 
routine elle-même). 


3) L'adresse de début du descriptif 
des tableaux doit toujours être sto- 
ckée en 37191 et 37192 avant tout 
appel à la routine pour les tableaux 
correspondants (cf. ligne 30 du pro- 
gramme de démonstration). Si un 
même programme utilise plusieurs 
descriptifs, leurs adresses respectives 
devront être stockées alternativement 
en 37191 et 37192 à chaque chan- 
gement du descriptif en cours de trai- 
tement. 


Far ailleurs, n'oubliez pas de définir 
la DIM de vos tableaux avant leur 
traitement (même si elle est inférieure 
à 10), pour que la routine puisse les 
trouver dans la zone des tableaux de 
l'Applesoft. 


4) Les différentes adresses ”’base” 
définies (36000 pour la fin des des- 


criptifs, 37191-37192 pour l'adresse 
de leur début...) tiennent compte de 
l'implantation d’autres routines que 
Pom's vous présentera peut-être pro- 
chainement. Vous pouvez bien sûr 
les modifier (n'oubliez pas la mise à 
jour des programmes) pour une meil- 
leure utilisation de la mémoire. 


5) Dans le programme DEMO.G, 
IG1 et IG2 sont deux masques de 
saisie (cf. Pom’s No 7) utilisés pour 
des raisons de présentation. Si vous 
ne possédez pas la disquette du pré- 
sent numéro, supprimez toutes les 
instructions BLOAD IG1 et BLOAD 
IG2 avant d'utiliser le programme 
(vous pouvez aussi vous créer deux 
masques IG1 et IGZ de votre choix 
avec le programme GESMASK de 
Pom's 7). 


De même, si vous ne possédez pas 
cette disquette, il vous faudra égale- 
ment créer votre propre descriptif de 
tableaux DEMO au moyen du pro- 
gramme CRETAB, avant de lancer 
DEMO.IG. 


Enfin, précisons que les fichiers F1 et 
F2 ne sont utilisés ici que pour illus- 
trer le transfert correct des valeurs 
des variables entre la routine d’IN- 
PUT, le BASIC et le DOS. 








Programme CRETAB AB : “>; VXxCTT,X + 3): NEXT 
80 TT = TT + 1: IF TT < = NV THEN 50 


Wu 


30 AD DD - NT: HOME : INPUT ‘NOM DU FI 

S REM CREATION DE TABLEAUX DE CHIER : ‘“;NS:AO = AD 
6 REM VARIABLES (APPLESOFT) 100 FOR I = 1 TO NV: POKE AD,V%(I,0) :AD 
7  REM SRSPSLPRSESEESSENSASTSS = AD + 1: POKE AD,VX%(I,1):NI = V 
%(I,1):AD = AD + 1:NO = Vx(I,2):H 
10 HIMEM: 25000 B = INT (NO / 256):LB = NO - 256 


15 TEXT : HOME 
17 INPUT “1-CREATION 2-MODIFICATION 
“:C: PRINT : PRINT : IF C < 1 OR 
C > 2 THEN 17 
18 DD = 36000:LO = O: IF C = 2 THEN 200: 
REM LE DESCRIPTIF DESCEND A PAR | 120 DS = CHRS& (4):LO = LO + NT 
TIR DE L’ADRESSE 36000 130 PRINT DS"BSAVE"NS",A"AO",L"LO: PRIN 
20 INPUT “NOMBRE DE TABLEAUX : "“;NV: IN T : PRINT “ADRESSE DU DEBUT TABLE 
PUT “DIMENSION MAXIMALE : ‘“;DM: P AUX : “AO: END 
RINT : IF NV > 10 THEN 20 200 DS = CHRS (4): INPUT "NOM DU FICHIE 
30 DM = 4 * (DM + 1): DIM VX(10,DM): REM R : “;N#: PRINT DS$"BLOAD'"NS:AO = 
LE TABLEAU V%x RECOIT LES INFORM PEEK (43634) + 256 * PEEK (4363 
ATIONS QUI SERONT POKEES EN FIN D 5):LO = PEEK (43616) + 256 * PE 
E TRAITEMENT EK (43617):AD = AO:DD = AO 


* HB: POKE AD,LB: POKE AD + 1,HB 
AD = AD + 2 

110 FOR J = 3 TO ((4 # NI) + 2): POKE A 
D,V%(I,J):AD = AD + 1: NEXT J: NE 
XT I 


40 NT = O!TT = 1 205 INPUT ‘“AJOUTS DE TABLEAUX CO/N) ?°; 
SO TEXT : HOME : PRINT "TABLEAU "TT: PR 2$#: IF Z$ = “O* THEN 20 
INT : POKE 34,2: INPUT "LETTRE : 210 Z$ = CHRS ( PEEK (CAD)DD:NI = PEEK ( 
“LS: INPUT "NOMBRE DE VARIABLES AD + 1):NO = PEEK (AD + 2) + 256 


5 “>NI:NO = 4 * CNI + 1):NT = NT #  PEEK (AD + 3): PRINT : PRINT 
- + NO: PRINT "TABLEAU ‘“2S" “: INPUT “OK ? 
60 VX(TT,O) = ASC (LS):VX%XCTT,1) = NI:Vx 532$: IF 2$ = "N" THEN 300 
CTT,2) = NO: POKE 34,5: FOR I = 1 220 INPUT “FINI ? “:28S: IF Z$ = “O“ THE 
TO NI:X = (4 » I) - 1: HOME N PRINT DS"BSAVE"NS$",A"AO",L"LO: 
70 PRINT : PRINT “VARIABLE “I: PRINT : END 
INPUT “TYPE : “:;V%XCTT,X): INPUT * 230 AD = AD + NO: GOTO 210 
LONGUEUR : “>V%CTT,X + 1): INPUT 300 I = 1:AD = AD + 4 
“VTAB : “;VXxCTT,X + 2): INPUT "HT 310 PRINT : PRINT “VARIABLE “I: PRINT : 
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320 


350 


360 


PRINT “TYPE : “ PEEK (AD): PRINT 
“LONGUEUR : ‘“ PEEK (AD + 1): PRI 
NT “VTAB : ‘“ PEEK (CAD + 2): PRINT 
“HTAB : ‘“ PEEK (CAD + 3): PRINT : 
INPUT “OK ? “;:28: IF 2$ = "“O" TH 
EN 350 
INPUT "NOUVEAU TYPE: “;TY: INPUT “N 
OUVELLE LONGUEUR: “;LO: INPUT "NO 
UVEAU VTAB: “;V: INPUT "NOUVEAU H 
TAB: “;H: POKE AD,TY: POKE AD + 1 
»LO: POKE AD + 2,V: POKE AD + 3,H 
AD = AD + 4:I = I + 1: IF I < = NI 
THEN 310 
GOTO 210 





Programme DEMO.IG 


œ Jun qi 


10 
15 


17 
20 


30 


40 


41 


50 


100 


110 


120 
130 
200 


210 
220 
225 
230 


250 


REM DEMONSTRATION DE L’INPUT 
REM GENERALISE DE TABLEAUX 
REM  CAPPLESOFT) 


REM Szss2szs2z22zezassesss2z=.: 


HIMEM: 35899 

POKE 1013,76: POKE 1014,112: POKE 10 
15,142: REM ADRESSE POUR & 

DIM Z$S(6),XS5(15) 


DS = CHRS (4): PRINT DS#"“BLOAD IG.OBJ 


“: PRINT DS"BLOAD FRE(2)'": PRINT 
DS"BLOAD DEMO": REM DEMO=DESCRIP 
TIF DES TABLEAUX 
POKE 37191, PEEK (43634): POKE 37192 
» PEEK (43635): GOTO 100: REM ST 
OCKE L’ADRESSE DE DEPART DU DESCR 
IPTIF 
VTAB 23: HTAB 1: INVERSE : PRINT "EN 
REGISTREMENT CONFIRME ? ‘';: NORMA 
L : GET 2$: IF Z# < > “O" AND ZS 
< > “N" THEN 40 
VTAB 23: HTAB 1: CALL - 868: RETURN 
VTAB 23: HTAB 1: INVERSE : PRINT “AP 
PUYEZ SUR UNE TOUCHE ‘“;: NORMAL : 
GET 2$: RETURN 
TEXT : HOME : PRINT ‘“1-CREATION MAS 
QUE 1": PRINT ‘’2-CONSULTATION MAS 
QUE 1“: PRINT “3-MODIFICATION MAS 
QUE 1": PRINT ‘4-CREATION MASQUE 
2": PRINT ‘“S-CONSULTATION MASQUE 
2": PRINT “"6-MODIFICATION MASQUE 
2": PRINT “7-FIN": PRINT 
INPUT ‘VOTRE CHOIX : “;C: IF C < 1 
OR C > 7 THEN 100 
IF C = 7 THEN TEXT : HOME : END 
ON C GOTO 200,250,250,350,400,400 
PRINT DS"BLOAD 1G1*: & IZ: IF PEEK 
(6) THEN 100: REM PEEK(6)=1 => 
ABANDON 
GOSUB 40: IF Z$ = ‘“O‘" THEN 230 
& MZ: IF PEEK (6) THEN 100 
GOTO 210 
PRINT : PRINT DS"OPEN F1“: PRINT DS 
"WRITE F1“: FOR I = O TO 6: PRINT 
ZS(I): NEXT : PRINT DS"CLOSE‘*: P 
RINT DS"PR#O"*: GOTO 100 
PRINT DS"OPEN F1": PRINT DS'"READ F1 
“: FOR I = O TO 6: INPUT 2S(I): N 
EXT : PRINT DS"CLOSE": PRINT DS"P 
R#O": PRINT DS"BLOAD 1G1"* 
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S’ADAPTE A VOS BESOINS 
matériels - choix - décisions 


[Kele7: vale) \ 
APPLE |! la semaine __ 


PROGRAMMES MÉDICAUX 


Logiciels - Progiciels 


ENSEIGNEMENT “Promotion” 
SHARP PC 1212 x 850 F TTC 
PAS e7 : 6.800 F TTC 


ADAPTATIONS PERSONNALISÉES 


Progiciels 


dépôt vente 


PROMOTION 


spécial fêtes 


» 


Gi 


ime);17: yet) 
12, rue de Constantinople 
75008 Paris 
LEP CKEK RTS 





[ex] 
[Sa] 








260 & PZ: IF C = 2 THEN GOSUB 50: & EZ T X#(1): NEXT : PRINT D8“CLOSE": 
: GOSUB 50: PRINT : GOTO 100 PRINT DS$"PR#O0“: GOTO 100 
270 GOTO 210 400 PRINT DS"OPEN F2“: PRINT DS"READ F2 
350 PRINT D#"BLOAD IG2": & IX: IF PEEK “: FOR I = O TO 15: INPUT XS#(I): 
(6) THEN 100 NEXT : PRINT DS"CLOSE": PRINT Ds" 
360 GOSUB 40: IF Z$ = "O" THEN 380 PR#O": PRINT DS"BLOAD IG2" 
370 & MX: IF PEEK (6) THEN 100 410 & PX: IF C = 5 THEN GOSUB 50: & EX 
375 GOTO 360 : GOSUB 50: PRINT : GOTO 100 
380 PRINT : PRINT DS"OPEN F2": PRINT Ds | 420 GOTO 360 
“WRITE F2“: FOR I = O TO 15: PRIN 
Programme IG.SCE 47 BNE EXAI 
Ô 48 JP 10 
Lisa 1.5 &9 EXAI CMP #P  :INSTRUCTION "PRINT" 
Î 3 BONNE 50 BNE EXR? 
2 :# # 51 JKP PO 
3 :# ROUTINE D’ INPUT GENERALISE DE +# 52 EXA2 CP #w : INSTRUCTION "MODIFICATION" 
& x TABLEAUX - CODE = IG.0BJ + 53 BEQ MO 
5 + n 54 CP #'E : INSTRUCTION "EFFACE" 
(ALLSELEES ETS ETS TESTS TT ST TTC 55 BNE EXA 
7: 56 JP E0 
8 ORG $BE70 57 10  JSR $B! *LIT NOM DE LA VAR.-TAB. DANS PGM 
] OBJ $800 58 STA VAR 
10 ADR EPZ #28 ADRESSE BASE COLONNE COURANTE 59 LDA #0 
11H EPZ #24 :FOSITION HORIZONTALE DU CURSEUR 60 STA M + SIGNALE "INPUT" 
12 LC EPZ #9 :NOMBRE DE CARACTERES ENTRES si STA NVP 
13 E EPZ $6 :DRAFEAL FOUR * ESC’ 62 JMP 11 
14 LO  EPZ #7 *LONGUEUR VARIABLE A ENTRER 63 PQ JSR $Bi 
15 TY  EPZ $8 »TYPE DE LA DONNEE 64 STA VAR 
16 2Y EQU $3i1  :Z2ONE DE STOCKAGE DES CARAC. ENTRES | 65 JP 550 
17 GET  EQU $FDOC  :ROUTINE SAISIE D'UN CARACTERE 66 MO  JSR $Bi 
18 OUT  EQU #FDED  :ROUTINE SORTIE D'UN CARACTERE 67 STA VAR 
13 ADT  EPZ #i8 "ADR. DESCRIPTIF TABLEAUX DE VE. 68 LDA #1 
20 VAR  EPZ $in :1ERE LETTRE NOM VAR. -TABLEAU 69 STA ME :SIGNALE "MODIFICATION" 
21 WP EPZ $6 * VARIABLE DE TRAVAIL 70 JMP 5550 
22 ADT2  EPI $iB + VARIABLE DE TRAVAIL 71 E0  JSR $Bi 
23 NVAR  EPZ $iD :NBRE VAR. (INDICES) DANS TABLEAL 72 STA VAR 
24 V EPZ $25 :POSITION VERTICALE DU CURSEUR T3 JMP Ei 
25 ME  EPZ $D7 :DRAPERU INPUT/MODIFICATION* 74 Ii  JSR S0 
26 TAB  EPZ $6B "ADR. DEBUT ZONE TABLEAUX ADOLESOFT | 75 JP 560 
27 TAB2 EPZ $lE + VARIABLE DE TRAVAIL 7650  LDY #0 :CHERCHE VAR. DANS DESCR. TABLEAUX 
28 VTAB EQU $FC22  :ROUTINE MONITEUR "VTAB" T1 LDA (ADT),Y 
23 ADV  EPZ $CE *ADR. VALEUR VAR. (VAL, 1$(0) ..,) | 78 CMP VAR 
30 FRETOP EPZ $6F *FIN DE ZONE LIBRE 79 BEG 51 : VARIABLE TROUVEE 
31 NVT  EPZ $D6 .NBRE VAR. TRAITEES S/TRB EN COURS | @0 INY 
32 FRE  EQU 49270  :ROUT. "GARBAGE" (CF POS NO 2) ei INY 
33 NVP  EPZ $EB «DRAPEAU POUR "REMONTEE" PAR ESC | 82 LDA (ADT),Y  :PASGE A VAR.-TABLEAL SUIVANTE 
34 VAR2 EPZ $EC :2EME LETTRE NOM VAR. -TABLEAU 83 CLC : (ADT),Y OCTETS PLUS LOIN 
35 ADTPRO EQU $9147  :STOCKAGE ADRESSE DESCRIPTIF 84 ADC ADT 
36 LDY ADTPRO 85 STA VP 
37 STY ADT 86 INY 
38 LDV ADTPRO+1 87 LDA (ADT),Y 
39 STY ADT+: 8 ADC ADT+1 
40 LDY #$80 89 STA ADT+#I 
&i STY VAR2  :1 LETTRE POUR VAR. -) 2EME=-#$80 90 LDA WP 
42 60  BNE EXAO gi STA ADT 
&3 RTS g2 JP 50 
4h EXA  JSR $Bi 93 S1 LD ADT :STOCKE ADRESSE-BASE DU TABLEAU 
45 JP 60 94 STA ADT2 
46 EXAO CP #l' * INSTRUCTION "INPUT" g% LDA ADT+1 
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% STA ADT2+#1 155 INY 

g7 INY 156 LDA (ADT2),Y 

gg LDA (ADT),Y 157 STA H 

3 STA NVAR 158 STA VP 

100 LDA #0 159 JSR VTAB 

101 STA NVT 160 RTS 

102 LDA TAB 161 571  LDX LO «AFFICHE DES POINTS SUR LA 

103 STA TAB2 162 LDA #$AE  :LONGUEUR MAXIMALE DE LA DONNEE 

104 LDA TAB+1 163 58  JSR OUT 

105 STA TAB2+1 164 DEX 

106 52  LDY #0 :CHERCHE VAR. DANS ZONE-TABLEAUX | 165 BNE 58 

107 LDA (TAB2),Y 166 LDA 

108 CMP VAR 167 STA H 

109 BNE 53 168 LDA Æ 

110 INY *1ERE LETTRE TROUVEE 169 BNE 580 

lit LDA (TAB2) ,Y 170 LDA NVT :TRAITE MODIFS GR ESC’ DANS INPUT 

112 CMP #$80 171 CMP NVP 

113 BEQ S4 :2EME LETTRE TROUVEE 172 BCC 580 

lié DEY 173 LDA #0 

1553  INY :PASSE A VAR.-TAB. SUIVANTE QUI SE | 174 STA NVP 

116 INY :TROUVE (TAB2),Y OCTETS PLUS LOIN | 175 JP 590 

{17 LDA (TAB2),Y 176 580  JSR SS10  :PRE-AFFICHAGE DONNEE POUR MODIF. 

118 CLC 177 LDA WP fes 
119 ADC TABZ 178 STA H + 
120 STA WP 179 590  JSR INPUT Hi 
121 INY 180 LDA E 

122 LDA (TAB2),Y 181 BEQ 59 «PAS DE *ESC 
123 ADC TAB2+1 182 JMP 516 : 
124 STA TAB2+1 183 59  LDX LC ei 
125 LDA wP 184 BNE Sii ë 
126 STA TABZ 185 510  LDA ZY,X «PAS DE CARAC. ENTRES - VERIFIE SI : 
127 JMP 52 186 CMP #$80  :DONNEE EST VIDE OÙ SI 

128 54  LDA TAB2 +SE PLACE A IND. 0 TAB. APPLESOFT | 187 BEQ ii * "RETURN" DE MODIFICATION 

129 CLC 188 JSR OUT 

130 ADC #7 189 INC LC 

131 STA TAB2 190 INX 

132 BCC 55 191 JP 510 

133 INC TAB2+i 192 Si  JSR S11A 

13455 RTS 193 JP 5110 

135 S60  JSR 196 S11A CPX LO :AFFICHE BLANCS -) LONGUEUR 

136 JP 570 195 BEQ SiiR 

137 56  LDA ADTZ :PASSAGE AUX INDICES SUCCESSIFS 1% LDA #5A0 

138 CLC :DANS LE DESCRIPTIF DES TABLEAUX | 197 JSR OUT 

139 ADC #4 198 INX 

140 STA ADT2 199 JMP 511 

lai BCC 561 200 S11B RTS 

142 INC ADT2#1 201 5110  LDY # 

143 S6i RTS 202 LDA LC :STOCKE LONGUEUR DANS ZONE-TABLEAUX 

184 570  JSR 57 203 STA (TAB2) ,Y 

145 JP 571 204 BEG 512 

14657  LDY # : TRANSFERT PARAMETRES INDICE 205 LDA FRETOP  :CALCUL ADRESSE DE LA VALEUR DE LA 

147 LDA (ADT2),Y :CONCERNE DANS VAR. DE TRAVAIL 206 SEC + VARIABLE ET NOUVEAU FRETOP 

148 STA TY 207 BC LC 

149 INY 208 STA FRETOP 

150 LDA (ADT2),Y 209 LDA FRETOP+i 

151 STA LO 210 SBC #0 

152 INY 211 STA FRETOP+I 

153 LDA (ADT2),Y 212 513  LDA ZY,Y : TRANSFERT VALEUR DE LA VARIABLE 

154 STA V 213 SEC A SON ADRESSE + CONVERSION “ECRAN" 
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214 SBC #$80 : -} “CODE ASCII" 273 STA LC 


215 STA (FRETOP),Y 214 BEQ 5520 
216 IN 275 IN 
217 CPY LC 716 LDA (TAB2),Ÿ 
218 BNE 513 277 STA ADV 
219 LDY #1 :STOCKE L'ADRESSE DE LA VALEUR DANS | 278 IN 
220 LDA FRETOP ZONE DES TABLEAUX APPLESOFT 279 LDA (TAB2),Y 
21 STA (TAB2),Y 280 STA ADV41 
222 LDA FRETOP#1 281 LDY #0 
223 INY 282 662  LDA (ADV),Y AFFICHE LA VALEUR DE LA VARIABLE 
224 STA (TAB2),Y 283 CLC 
25 Si2 INC NT 284 ADC #$80 
226 LDA NVT 285 STA 1Y,Y 
271 CMP NVAR DERNIER INDICE A ETE TRAITE ? 286 JSR OUT 
228 BNE Si 287 INY 
29 JSR FRE 288 CPY LC 
230 JMP EXA 289 BNE 552 
231 Siä LDA TAB2  :PASSAGE A L’ INDICE SUIVANT 290 5620 LDA ##80  :MARQUE LA FIN DE LA DONNÉE 
232 CLC 291 STA 1Y,Y 
233 ADC #3 292 RTS 
234 STA TAB2 293 SS3 INC WT 
# 25 BCC 515 294 LDA NT 
H 2% INC TABZ+1 295 CMP NVER 
237515 JW SE0 2% BNE 554 
238516  LDA NT 297 RTS 
…. 23 BNE 517 298 SS4 LDATAB2  :PASSE A AFFICHAGE INDICE SUIVANT 
240 JSR FRE ESC’ SUR 1ERE VARIABLE -) SORTIE | 299 CLC 
241 JMP EXA 300 ADC #3 
242517 LDX NW 301 STA TAB2 
UE 243 BNE 5170 302 BCC 595 
244 STA NP *DRAPEAU LA OU ON "REMONTE" 303 INC TAB2+1 
245 S170 DEC NVT "RETOUR A L’ INDICE PRECEDENT 304 555 JP Si 
246 LDA TAB2 305 5650 JSR 5600  :PRE-AFFICHAGE TAB. AVANT MODIF. 
267 SEC 306 LDY # 
28 SBC #3 307 JSR si 
249 STA TAB2 308 JMP 560 
250 LDA TAB2+1 309 Ei  JSR 50 *EFFACE TOUT LE TABLEAU A L'ECRAN 
251 SBC #0 310E4  JSR 
252 STA TAB2+1 311 JSR 97 
253 LDA ADT2 312 LDX #0 
254 SEC 313 JSR 5114 
255 GBC #4 314 INC AT 
256 STA ADT2 H5 LDA NVT 
257 LDA ADT241 316 CMP NVAR 
258 GBC #0 317 BNE E2 
259 STA ADT2+41 318 JMP EXA 
260 JMP 970 319 E€2  LDA TAB2 
261 550  JSR 5500 320 CLC 
262 JMP EXA 321 ADC #3 
263 500  JSR G0 «PRINT DE L'ENSEMBLE DU TABLEAU 32 STA TABZ 
264 SS1  JSR S 323 BCC ES 
265 JSR 57 324 INC TAB2+1 
266 JSR 5510 DSES JP E 
267 JP 553 326 INPUT LDA MÆ "ROUTINE D’ INPUT CARAC. /CARAC. 
268 9910 LDX #0 327 BNE DEP  :VOIR POW'S NO 6 
269 JSR Sin :EFFACE AVANT AFFICHAGE 328 LDA NVT 
210 JSR 57 329 CMP NP 
271 LDY #0 330 BCC DEP 
272 LDA (TAB2),Y :RECUPERE LONGEUR ET ADRESSE VALEUR | 331 LDA #$80 


MASESITIISTTEeNsRsaR 
San nas De MUR) 
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332 LDX LO 365 DEC H 

333 DEPO STA ZY,X 366 JP DEP 

354 DEX 367 SUITS CHP #595 

355 BPL DEPO 368 BNE SUIT4 

336 DEP  LDX #0 369 LDA #25 

337 STX E 370 JSR $FBC! 

338 DEPI JSR GET 371 LDY # 

339 CMP #$8D 372 LDA (ADR), Y 

340 BEQ FINI YA JMP SUITE 

341 CPX LO 374 SUIT4 CMP ##00 

342 BCC SUITS 375 BCC DEP1 

345 CMP #$88 376 CMP #SDB 

4 BEQ RETOUR 377 BCS DEPi 

345 JSR $FBDE 378 LDY TY 

346 JMP DEP1 379 CPY #i 

347 SUITS CMP #$9E 380 BEQ SUITE 

348 BNE SUITI 381 CHP #$AF 

349 CPX #0 382 BCS SUIT7 

350 BNE SUITI 383 CMP #$AD 

351 LDA #3 384 BNE DEP] 

352 STA € 385 SUIT7 CMP #$B6 

353 RTS 386 BCS DEPI 

354 SUITI CMP ##AC 387 SUITE CPX 40 

355 BNE SUIT2 388 BNE SUITS 

356 LDA #$AE 389 CMP #52 

357 JMP SUITE 390 BEG DEPI 

358 SUIT2 CMP #$AE 391 SUITE JSR OUT 

359 BEG SUITE 392 STA 1Y,X 

30 CMP #$84 393 INX 

Al BNE SUITS 3% JP DEP1 

362 CPX #0 395 FINI STX LC 

363 BEQ SUITS 39% RTS 

364 RETOUR DEX 397 DCM "INT" 
398 END 

Récapitulation I1G.OBJ 8F00- A5 6B 85 1E A5 6C 85 1F 
8F08- AO OO B1 1E C5 1A DO O8 
8F10- C8 B1 1E C9 80 FO 18 88 

*8E70.9161 8F18- C8 C8 B1l 1E 18 65 1E 85 
8F20- O6 C8 B1 1E 65 1F 85 1F 

8E70- AC 47 91 84 18 AC 48 91 8F28- AS 06 85 1E 4C 08 8F A5 

8E78- 84 193 AO 80 84 EC DO 07 8F30- 1E 18 69 07 85 1E 90 02 

8E80- 60 20 B1 OO 4C 7E 8E C9 8F38- E6 1F 60 20 41 8F 4C 4D 

8E88- 49 DO 03 4C AO 8E C9 50 8F40- 8F A5 1B 18 69 04 85 1B 

8E930- DO O3 4C AE 8E C9 4D FO 8F48- 90 O2 E6 1C 60 20 53 8F 

8E98- 1D C9 45 DO Ed 4C C2 8E 8F50- 4C 6E 8F AO O0 B1 1B 85 

8EAO- 20 B1 OO 85 1A A9 OO 85 8F58- 08 C8 B1 1B 85 07 C8 B1 

8EA8- D7 85 EB 4C CA 8E 20 B1 8F60- 1B 85 25 C8 B1 1B 85 24 

8EBO- OO 85 1A 4C 3E 9O 20 B1 8F68- 85 06 20 22 FC 60 A6 O7 

8EB8- 00 85 1A A9 O1 85 D7 4C 8F70- A9 AE 20 ED FD CA DO FA 

8ECO- 9C 90 20 B1 00 85 1A 4C 8F78- AS O6 85 24 AS D7 DO OD 

8EC8- A7 90 20 DO 8E 4C 3B 8F 8F80- AS D6 CS EB 90 07 A9 O0 

8EDO- AO OO B1 18 C5 1A FO 17 8F88- 85 EB 4C 94 8F 20 53 90 

8ED8- C8 C8 B1 18 18 65 18 85 8F90- AS 06 85 24 20 CE 90 A5 

8EEO- 06 C8 B1 18 65 19 85 19 8F38- 06 FO O3 4C OF 90 A6 093 

8EE8- AS 06 85 18 4C DO 8E AS 8FAO- DO 10 BD 11 03 C9 80 FO 

8EFO- 18 85 1B AS 19 85 1C C8 8FA8- O9 20 ED FD E6 09 E8 4C 

8EF8- B1 18 85 1D AS O0 85 D6 8FBO- A2 8F 20 B8 8F 4C C6 8F 
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8FB8- E4 07 FO O9 A9 AO 20 ED 90930- 18 69 03 85 1E 90 O2 E6 
8FCO- FD E8 4C B8 8F 60 AO OO 9098- 1F 4C 47 90 20 44 9O AO 
8FC8- A5 O9 91 1E FO 25 AS 6F 9SOAO- OO 20 EF 8E 4C 3B 8F 20 
8FDO- 38 ES O9 85 6F AS 70 E9 9SOA8- DO 8E 20 41 8F 20 53 8F 
8FD8- O0 85 70 B9 11 03 38 E9 90BO- A2 O0 20 B8 8F E6 D6 A5 
8FEO- 80 91 6F C8 C4 09 DO F3 90B8- D6 C5 1D DO 03 4C 81 8E 
8FE8- AO O1 AS 6F 91 1E AS 70 90C0- AS 1E 18 69 03 85 1E 90 
8FFO- C8 91 1E E6 D6 A5 D6 CS 90C8- 02 E6 1F 4C AA 9O A5 D7 
8FF8- 1D DO 06 20 7C 92 4C 81 90DO- DO 10 A5 D6 C5 EB 90 OA 
9000- 8E AS 1E 18 69 03 85 1E 9O0D8- AS 80 A6 07 9D 11 O3 CA 
” 9008- 90 02 E6 1F 4C 3B 8F AS 9SO0EO- 10 FA A2 OO 86 06 20 OC 
#_ 9010- D6 DO 06 20 7C 92 4C 81 9SO0E8- FD C9 8D FO 72 E4 O7 90 
“  9018- 8E A6 EB DO O2 85 EB C6 9SOFO- OA C9 88 FO 28 20 DD FB 
“ 9020- D6 AS 1E 38 E9 03 85 1E 90F8- 4C E6 90 C9 9B DO O9 EO 
# SO28- AS 1F E9 OO 85 1F AS 1B 9100- O0 DO 05 A9 09 85 06 60 
… 9030- 38 E9 O4 85 1B A5 1C E9 9108- C9 AC DO 05 A9 AE 4C 55 
# 9038- 00 85 1C 4C 4D 8F 20 44 9110- 91 C9 AE FO 40 C9 88 DO 
# 9040- 90 4C 81 8E 20 DO 8E 20 9118- OA EO O0 FO 06 CA C6 24 
” 9048- 41 8F 20 53 8F 20 53 90 9120- 4C E6 90 C9 95 DO OC A5 
# 9J050- 4C 85 90 A2 00 20 B8 8F 9128- 25 20 C1 FB A4 24 B1 28 
#  9058- 20 53 8F AO 00 B1l 1E 85 9130- 4C 55 91 C9 AO 90 AF C9 
9060- 09 FO 1C C8 B1l 1E 85 CE 9138- DB BO AB A4 O8 CO O1 FO 
9068- C8 B1 1E 85 CF AO OO B1 9140- OC C9 AF BO O4 C9 AD DO 
9070- CE 18 69 80 99 11 03 20 9148- 9D C9 BA BO 99 EO OO DO 


39158- SD 11 03 E8 4C E6 90 86 


3078- ED FD C8 C4 O9 DO FO AS |S158- O4 C9 A2 FO 91 20 ED FD 
9160- 09 60 


COMEICO Un vrai discounteur 


annonce l'arrivée prochaine des micros du futur : 


LES MULTI-COMPATIBLES 


En fichez l'interface | vous avez le langage FORTHTV l'interface || vous avez un IBM-PCT" l'interface III vous êtes 
compatibles APPLETM (et vous pouvez vous même construire l'interface Ill un jeu d'enfant !!!) 


PRIX TVA COMPRISE 


- Diskettes 5“l4 3M-SF - DD 189,00 F 
1 790,00 F 

- Disk Drive pour Apple!" 

(mécanismes Siemens : la "Rolls" des Drives !!) 

- Carte mémoire 16 K 

- Carte 80 colonnes 

- Carte imprimante parallèle 

- Carte controlleur pour Drive 

- Imprimante type Nec 8023 

SEIKOSHA GP 100 A 

- Monitor grande marque 12" Vert 

- Réveil LCD a fixer sur Monitor 

À VENIR : UN MICRO 64K + DRIVE + MONITOR 9 950,00 F 

À VENIR : FRANKLIN (le compatible APPLETM US. MEDFLYTM, des compatibles 

ATARITM , COLECOT", TRS-80TM KEEP CONTACT !!! 


COMEICO SARL, 97, rue de Richelieu, 75002 PARIS 


(Chercheurs français, pouvons réaliser vos projets à bas prix en Extrême-Orient grâce à nos bureaux à Hong-Kong, Taïwan. 
Contacter M' LONG) 
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Un calendrier perpétuel en Visicalc 


À voir les exemples proposés habi- 
tuellement en démonstration des 
possibilités du programme Visicalc, 
on finit par ressentir une certaine las- 
situde à l'égard des chiffres et des 
modèles de gestion. Dans ce mo- 
deste article, je voudrais prouver qu'il 
est possible, avec ce programme gé- 
nial, de faire autre chose qu'une 
feuille d'impôt, une gestion de 
compte bancaire, un bilan de PME 
ou … le tableau de bord des ventes 
de Pom's. 


Voici donc un calendrier perpétuel, 
qui serait réalisable en BASIC, mais 
dont Visicalc permet une présenta- 
tion agréable obtenue rapidement. 


Le mode d'emploi en est très sim- 
ple : il suffit de charger la feuille élec- 
tronique (si vous n'avez pas la dis- 
quette d'accompagnement de ce 






À B C 


D 


numéro de Pom's. il vous faudra 
taper les formules ci-jointes}): on ini- 
tialise le tableau avec (/CY). on se 
met en recalcul manuel (/GRM) avec 
ordre par lignes d'abord (/GOR) et 
on définit une largeur des colonnes 
de 6 (/GC6). On écrit alors le quan- 
tième (numéro du jour) dans la case 
B7 (de 1 à 31). le numéro du mois 
dans la case D7 (de 1 à 12) et les 4 
chiffres de l'année dans la case F7 
(de 1582. date de mise en service du 





E F 





1} CALENDRIER PERPETUEL SUR VISICALC 

£ 

3 (C) OLIVIER HERZ POUR POM’S 

4 

S] 

6! JOUR: 15 MOIS: 12 ANNEE: 1983 
7 

8 BISSEXTILE: FALSE 

9 ?G 1 LUN ! 
10 NOMBRE D'OR: 8 !F 2 MAR ! 
11 tE 3 MER ! 
12] LETTRE DOMINICALE: 6 !D 4 JEU ! 
13 tC S VEN ! 
14 EPACTE: 16 !B 6 SAM ! 
15 tA O DIM ! 
16 DATE DE PAQUES: 3 4 

17 ? OO NL ! 
18 JOUR DE SEMAINE: 4 1! 7 PQ ! 
19 t 14 PL ! 
20 . AGE DE LA LUNE: 11 ? 21 DQ ! 





Olivier Herz 


calendrier Grégorien actuel, à 2199). 
Il ne reste alors qu'à forcer un recal- 
cul en pressant la touche ”!" et l'on 
peut lire les résultats suivants : 


e année bissextile ou non 


e le nombre d'or de l'année. c'est-à- 
dire le rang de l'année dans le 
cycle de METON (19 années va- 
lent 235 lunaisons) 


@ la lettre dominicale qui indique 
quel jour tombe le ler janvier 
(1— G— Lund, 2— F 

6— B— Samedi, 0 — 

A — Dimanche) 


e l'épacte, qui est l'âge de la lune 


au ler janvier, diminué d'une 
unité 

@e le jour de la semaine (1— 
Lundi... 0 — Dimanche) 


e l'âge de la lune (en sachant que 
O=Nouvelle lune,  7=Premier 
Quartier, 14=Pleine Lune et 
21=Dernier Quartier) 


Nous ne détaillerons pas les calculs. 
qui se font dans les cases invisibles à 
droite de l'écran et utilisent toutes les 
possibilités de Visicalc (expressions 
numériques ou booléennes, fonctions 
diverses dont, @ LOOKUP..), mais 
nous ne saurions trop conseiller à 
tous ceux que cela intéresse la lec- 
ture de l'excellent ouvrage “Le Ca- 
lendrier” de Paul Couderc. dans la 
collection ‘Que-Sais-Je?”, d'où sont 
tirées toutes ces formules... 


À partir de cet exemple, on voit que 
seul le manque d'imagination peut li- 
miter les utilisations possibles de Visi- 
calc. Alors, tous à vos feuilles électro- 
niques pour réaliser, entre autres, des 
jeux comme la bataille navale. ou 
même le Mastermind (ce dernier cas 
est un peu plus complexe, mais par- 
faitement réalisable)... 
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FALSE FALSE 
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Si 
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méapes 


FICHIER VISICAIC ©: 





1X:/X)RLt) Gi: )S22S )N&:E 

456 }T2:9 }54:9 
1ERN }u2ti )Gé:1 

#50R }Vat5 )R&:O 
fui Pazsi PS4: 

jai CAEN  )X214 }T412 
Bt "DRIER }Y216 }U415 
DERINOEQUET 1212 }V4:4 
PDis"UE, SÙ jAA2i4 jnété 
DELSA VISI AS" iC }X4:7 
}F1: CALE }B3:") QLIV var 
61115 JOGITIER HE 24:19 
Hlt16 +DS:°RZ 9GÙ }f64:9 

iiit DESIFR SO?  jAG:" JOUR: 
}jtr18 )Fai"s }E6:/FL1S 
}K1:13 }G3ti5 }Cst* MOIS: 
}L1:20 }n3ii iDG:/ELS 
Hrii2i 13:17 }£G: "ANNEE : 
}N1:22 311 }=6+/ELISE) 
ipiti )A3:19 }G6:8INT (F6 100) 
iGit2 }L3126 }HG:@INT (F6/19) 
PRitS »"3:21 }16:+F6-(19#H6) 
}Sité IN 123 }J6:19%16+1:5+8L00KUP (66. 61,,,.N1i 
)7it5 PACE }461+J6-CORRINT (56/30); 


P#ité SRE 

54119 }T4t5 

}Yisi0 }U3:6 ) 
\lisit }V3:7 } 
} AR: +12 TRES 


es 
[ER 
mt 


PL6:6IF (8CR(K6=29, BAND (KE=2E, Lo} 16:31, KS-1, KE) 
PMS+FGHBINT (26/4) +L6+8L00K0P (GE, 53... 3) 
PNGE+ME-CTARINT (MS/7)) 

)06:81F (K6}23,55-K6, 25-K6) 
}67:(F6/4)=8INT(F6/4) 


}17:60ND(57, BNOT (+7) 
}JTSENG-LG648 IE (BAND 77, 86 C5), 32, 33) 
DK7:+17+R6+@: CORUCIDE, F1... RE) 

07 t+06+R6+8 DCKUP (DE. F5... 495) 
PM718TE C(D6/2)=8IAT (6/3), 23, 101 


VHZiF 

1218 TAG 

[218 )RAS::2 

14339 }5à14 }Ba1" BIGSS 
11213 rhéig }C8:"XTILE: 
"2:79 }iét3 )Dar+17 
iN2110 iJ4r2 Egr" (6: 
? HAUTE! gi" LUN 


T'BAND((FE/100)=BINT (26/1090), (26/4001 CBINT 56/6001) 


CALENDRIER VISICALC 


}Di0:+I6+i 
JEigi® !F 
}Figi" ME 
)Eut" (ES 
}Fiitt MER : 
PAIZIPLETTRE 
}B{2:" DOMIN 
)012:"ICALES 
PDIE:+07-(7RRINT(J7/7): 
JE" D 4 


RO 


LE 
on 


“ VEN 
)Bigi" Ê 
}Ci4: "PGCTES 
}Di4i+0é 
'Ei4i* BE 
PF14i" GA : 
ei" 
}FiSt" DIM : 

Hfipi* EA7 

)JBiBi'E DEF 

}C16:"ABLES: 

)DIG1@IF (LE-NG €=S, 28+L6-N6, L6-AG-3) 
}Ei6:/FLBIFILE-NR (ES 5,6) 

}E7it ! 0 

jFiTE NL 

jAiBi" JOU 

}B{g:" DE SE 

}CiB:MAINE: 

DB: 4K7-CTHBINT IK7/7)) 

JEtgi" ! 7 

jFig:" PO ! 

: 14 


18 0 


)C20:" UNE: 

}D20181F (L7)=M7,L7-M7,L7) 
}E20:" ! 21 

}F20:° DB 


Liste sortie par le programme LISTE de la disquette « Visicalc sur Apple » 





Transformation 


hexadécimal/décimal 


ultra-rapide 


détruit aucune mémoire de l'Apple- 
soft ou de ses programmes. 


Elle utilise la routine LINPRT 
($ED24), qui affiche un nombre 
hexadécimal de 2 octets (octet haut 


Cette transformation n'utilise que la 
ROM de l’Applesoift: pas de pro- 
gramme à charger. De plus, elle ne 








dans l’accumulateur À et octet bas 
dans le registre X). Le résultat est 
donné entre O0 et 65535. 


Si XYZT représente ce nombre, il 
suffit pour donner une valeur aux re- 
gistres, selon le manuel de référence 
de l'Apple, de faire : 


TCAËL “151 
x CTRL-E 
x :XY ZT N ED24G (noter pour une 


fois l’ordre octet haut-octet bas !} 


Pom's n° 10 





Conversion de Big Mac vers Lisa 2,5 


De nombreux programmes en lan- 
gage assembleur publiés dans Pom's 
sont écrits avec l’assembleur BIG 
MAC que je ne possède malheureu- 
sement pas. Par contre, je suis pos- 
sesseur du LISA 2.5 et, lassé de reta- 
per des fichiers-source inutilisables 
par mon assembleur, je me suis donc 
décidé à écrire un programme qui 
traduirait automatiquement les fi- 
chiers BIG MAC en fichiers LISA. 


Ce programme pouvait a priori être 
conçu pour deux types de tâches dif- 
férentes : 


— soit une simple transformation du 
fichier pour le rendre lisible par 
LISA ; 


— soit, en plus, une traduction, dans 
la mesure du possible, des instruc- 
tions BIG MAC en instructions LISA. 


La seconde solution étant évidem- 
ment la meilleure, c'est celle que je 
me suis efforcé de mettre en oeuvre. 


Le fonctionnement du programme 
est très simple : après avoir chargé 
en mémoire le fichier BIG MAC, 
sauvé sous forme Binaire, il l’exa- 
mine entièrement pour trouver les 
formats d'instruction différents selon 
l'assembleur. 


Les changements possibles sont les 
suivants: 


e suppression des lignes vides 
® remplacement de ”’x” par 


En effet, si LISA accepte "x" 
comme annonce d’une remar- 
que en début de ligne, il le re- 
fuse en milieu de ligne. 

Exemple : 

* ceci est accepté 

LDA #5$60 x mais pas ceci 

; ceci est accepté 

LDA #$60 ; ainsi que cela 


Dans le doute, le programme rem- 
place tous les x” 


»1,9? 
+ 


e remplacement de ’#<” par "#” 
Partie haute d’une adresse ; 


exemple : 
LDA ” FC58 ; = LDA #$FC 


® remplacement de ’#>°” par ‘/” 
partie basse d'une adresse ; 
exemple: 
LDA TFCS8 : = LDA #$58 


e insertion du caractère ”l” si x, +. 
—ou ! (EOR) suivi d'un nombre 
non précédé de ‘$” sauf après 
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l'instruction HEX. 

Avec BIG MAC un nombre est 
considéré comme décimal s'il 
n'y a pas de ”$” devant. Pour 
LISA, tout nombre décimal doit 
être précédé de ”!”. Exemple : 
LDA !36 : = LDA 36 pour BIG 
MAC 


e remplacement de DFB par DFS 
DFB $nnn réserve nnn octets 
pour BIG MAC et, par exem- 
ple : 

VAR DFS $2: gardera deux 

octets à l'adresse VAR en LISA 


© remplacement de DDB par ADR 
ADR LABEL remplacera les 


deux octets suivants par 
l'adresse de LABEL. 
Exemple : 


ADR HOME ;(HOME=$FCS58) 
génère 58FC 


e remplacement de EQU par EPZ si 
l'adresse suivant l'instruction est 
en page zéro (inférieure à 256). 
Certaines instructions travaillent 
sur des adresses de page zéro, 
comme LDA (LABEL,X). Or, si 
BIG MAC sait automatiquement 
si une adresse est en page zéro, 
cela doit être précisé avec LISA 
par EPZ (Equates Page Zero). 
Exemple : 

LABEL1 EQU $FE 
LABEL2 EPZ $FE 


LDA (LABEL1,X); provoquera 
une erreur 
LDA (LABEL2,X) ; = LDA 
(LABEL2+X) 
© remplacement de “=” par "EPZ” 
même chose (”’=” égal "EQU”) 
® remplacement de ”!” par ”\” (ou 
exclusif). . 
Exemple : 
A = $41/$80 ; A = $CI1 
ATTENTION 


le programme ; TRANSFERT modifie 
aussi les mi 

Exempl 

AB = 2 AB = 23 

donn 

AB EPZ $23 : AB EPZ $23 


Une fois le fichier intégralement mo- 
difié et sauvé sur disquette (sous son 
nom d’origine précédé de LISA), il 
peut être chargé avec LISA par l'ins- 
truction CTRL-D EXEC... 


Toutes les modifications envisagea- 
bles et nécessaires n'ayant pu être 
prises en compte dans mon petit pro- 
gramme, il se peut que ce charge- 
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ment soit brusquement interrompu et 
qu'un message d'erreur apparaisse. 
Dans ce cas, il suffit de corriger la 
ligne (ainsi que le demande d’ailleurs 
LISA) et la suite du fichier continuera 
à se charger. 

Exemple : 

Ligne N° 125 de "La Program- 

mation Facilitée” (Pom's N°5) 

125 PHA X+DE 

LISA prend le DE comme la 

suite de PHA et stoppe. Il suffit 

de taper PHA ;DE pour que la 

suite se déroule normalement. 


Voici enfin quelques précisions sur le 
fonctionnement du programme : 


Ligne 10 : 

Protection du 
HIMEM. 

Le fichier créé sera affiché à 
l'écran (MON Out). 

Lignes 40-80 : 
"Mode 
gramme. 

Lignes 100-110 : 

Saisie du nom du fichier-source. 
La routine utilisée est la routine 
dont se sert Applesoft pour l’en- 
trée des programmes. 

Elle permet donc la saisie de 
virgules, etc. 

La chaîne de caractères est sto- 
ckée à partir de l'adresse 512 
($200) et se termine par 0. 

Ligne 130: 

Chargement du fichier source à 
l'adresse 6000. 

Ligne 140 : 

Message invitant à changer de 
disquette si l'utilisateur a indi- 
qué le même drive pour les 2 
fichiers. 

Lignes 160-180 : 

"WRITE” n'acceptant pas de 
précisions quant au slot et au 
drive, ces indications sont reti- 
rées du nom. 

Lignes 190-210 : 

Ouverture du fichier. 
INS indique à LISA que des 
lignes vont être ajoutées au pro- 
gramme en mémoire. 

Lignes 210-470 : 
Création du fichier LISA. 

Ligne 500 : 
Fermeture du fichier. 
Les adresses 43616 et 43617 
indiquent la longueur du dernier 
fichier chargé (c'est-à-dire le fi- 
chier BIG MAC). 

Lignes 530-650 : 

Sous-programme permettant de 
déterminer si le nombre suivant 
est inférieur à 256 (pour EQU 
et EPZ). 


fichier par 


d'emploi” du  pro- 
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Variables utilisées par le programme 
principal : 


SL = PEEK(43626) et DR = 
PEEK(43624) : Slot et Drive en ser- 
vice au début du programme et donc 
pour le fichier LISA. 


A$ : nom du fichier BIG MAC avec 
le Slot et le Drive. Attention, le nom 
du fichier doit bien comporter le suf- 
fixe ”.S” caractéristique des fichiers- 
source BIG MAC. 


O  REM 
PROGRAMME DE CONVERSION 
BIG MAC <==> LISA V2.5 


10 HIMEM: 6000: PRINT CHRS (4)'"MON O" 


20 REM 


SL=SLOT ACTUEL 
DR=DRIVE ACTUEL 


A$,B$ : on se sert de B$ pour sup- 
primer de A$ le slot et le drive. 


PO,P1,P2,P3: Px=PEEK(T+x-1); 
utilisé pour simplifier la lecture du 
programme. En effet, les codes des 
caractères vont de 128 à 255 au lieu 
de 0 à 127, d'où : 

IF P1=193 THEN … 

au lieu de : 

IF P1=ASC("A") THEN 


HEX : HEX=1 si l'instruction précé- 
dente est HEX. 


T : variable servant aux boucles. 
Variables du sous-programme: 


HEX$: contient les caractères du 
nombre hexa suivant. 


HEX : code de chaque caractère de 
HEX$. 


DEC = HEX$ mais en décimal. 
EPZ : EPZ = 1 si DEC < 128. 


I : variable servant aux boucles. 


Transfert I1DS (AS,T,1): NEXT 
170 AS = Bs 
BIG-MAC 180 PRINT CHRS (4)"OPEN LISA."AS",D"DR 
vers LISA “,S"SL 
190 PRINT CHRS (4)"WRITE LISA."AS 
200 PRINT “INS" 
210 FOR T = 6000 TO 6000 + PEEK (43616 
) + 256 »* PEEK (43617) - 1 
220 P1 = PEEK (T):P2 = PEEK (T + 1):P3 
= PEEK (T + 2):PO = PEEK (T - 
1) 
230 REM 


SI UNE LIGNE EST VIDE, 
ON LA SUPPRIME. 


30 SL = PEEK (43626) :DR = PEEK (43624) 

50 PRINT “CONVERSION BIG-MAC >>>>>>>>> |2So 1F p1 - 
LISA V2.5 Ro REU 

60 PRINT : PRINT “TAPEZ LE NOM DU FICHI 


ER BIG-MAC 


70 NORMAL : 


CAVEC EVENTUEL 
LEMENT LE DRIVE ET LE SLOT‘ 

PRINT "LE FICHIER LISA SERA 
ENREGISTRE SUR LA DISQUETTE ACT 
UELLEMENT EN SERVICE." 


270 IF P1 = 
280 REM 


80 PRINT ‘“CACTUELLEMENT SLOT “"SL* ET DR 


141 AND PO = 141 THEN 480 
141 THEN HEX = O 


ON REMPLACE LE CARACTERE * PAR ; 
(VOIR COMMENTAIRE) 


170 THEN POKE T,187 


IVE “DR* D" #< DEVIENT # 
90 REM EX: LDA #<DEBUT ==> LDA #DEBUT 
CALL= 1068 CEADSRE: ENLINT 290 IF P1 = 163 AND P2 = 188 THEN T = T 
=INPUT UNIVERSEL + 1: POKE T,163 
LES CARACTERES DE LA CHAINE 300 REM 
SONT RANGES A PARTIR DE 
512 ET LA CHAINE EST TERMINEE 
PAR LE CARACTERE NUL (#00) 
#> DEVIENT / 
100 PRINT : PRINT “--> *: CALL - 1096 EX: LDA #>DEBUT ==> LDA /DEBUT 
4 
110 FOR T = 512 TO 512 + 255: IF PEEK |S%10 IF Pi = 163 AND P2 = 190 THEN T = T 
CT) < > O THEN AS = A$ + CHRS ( RÉ 
PEEK (TD): NEXT SL RER 
120 NORMAL 
140 IF SL = PEEK (43626) THEN POKE - |MAIS SANS ’$’. SI ’HEX’ EST 
16368,0: PRINT “CHANGER DE DISQu | TROUVE ALORS HEX=1 
E PUIS TAPER UNE TOUCHE": WAIT - 
340 REM 


ENLEVE DU NOM DU FICHIER 
LES PARAMETRES (SLOT ET DRIVE) 


160 FOR T = 1 TO LEN (A#): IF MIDS (A 
$8,T,1) < > ‘“," THEN B$ = B$S + M 


ét tte ES ARTE 
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SI UN NOMBRE EST PRECEDE DE 
*,yt,+»-»#r" ” SANS LE SIGNES, 
C’EST UN NOMBRE DECIMAL ET 
ON LE FAIT PRECEDER DE ’!”. 
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350 REM (EXCEPTION “HEX") 


CVOIR PLUS HAUT) 


450 


10 
REM 


360 IF P1 > 175 AND P1 < 187 AND (PO = t DEVIENT ” (COU-EXCLUSIF) 
163 OR PO = 161 OR PO = 170 OR PO 
= 171 OR PO = 173 OR PO = 160) A 460 IF P1 = 161 THEN POKE T,222 
ND NOT HEX THEN PRINT CHRS (16 470 PRINT CHRS ( PEEK (T)); 
1); 480 NEXT 
370 REM 490 PRINT : PRINT “ END‘ 
500 PRINT CHRS (4) "CLOSE" 
DFB DEVIENT DFS 510 END 
S20 REM 
380 IF P1 = 196 AND P2 = 198 AND P3 = 1 
S4 THEN POKE T + 2,211 CONVERSION HEXA-DECI 
330 REM 
3530 X = T +5 
EQU DEVIENT EPZ SI L’ADRESSE QUI 540 HEXS = CHRS € PEEK (X)) + CHRS € P 
SUIT EST INFERIEURE A 256 ($SFF) EEK (X + 1)) + CHRS ( PEEK (X + 
23) + CHRS ( PEEK (X + 3)) 
400 IF P1 = 197 AND P2 = 2093 AND P3 = 2 5S0 DEC = O 
13 THEN GOSUB S30: IF EPZ THEN 560 FOR I = 1 TO 4:HEX = ASC ( MIDS CH 
POKE T + 1,208: POKE T + 2,218 EXS,1,1)) 
410 REM 570 IF HEX < 176 OR CHEX > 1835 AND HEX 
< 193) OR HEX > 198 THEN HEXS = 
= DEVIENT EPZ SI L’ADRESSE QUI CHRS (176) + HEXS 
SUIT EST INFERIEURE À 256 (SFF) 580 NEXT 
590 FOR I = 1 TO 4 
420 IF P1 = 189 THEN T = T - 2: GOSUB 5 600 HEX = 5 - I:HEX = ASC ( MIDS CHEXS, 
3O:T = T + 2: IF EPZ THEN PRINT HEX,1)) 
CHRS (197) CHRS (208) CHRS (218) 610 IF HEX < 192 THEN DEC = DEC + CHEX 
3: GOTO 480 - 176) * 16 * (I - 1) 
430 REM 620 IF HEX > 192 THEN DEC = DEC + CHEX 
- 183) * 16 ” (I - 1) 
DDB DEVIENT ADR 630 NEXT 


440 IF P1 = 196 AND P2 = 196 AND P3 
S4 THEN POKE T,193: 


= 1 
POKE T + 2,2 


650 RETURN 


640 EPZ = ©: 
1) = 


IF DEC < 256 AND PEEK (X - 
164 THEN EPZ = 1 





Pom’s vous propose sur une dis- 
quette indépendante, au prix de 
80,00 francs, un logiciel de création 
musicale, baptisé tout naturellement 
“MUSIC”. 


MUSIC permet de jouer des mor- 
ceaux de musique à une voix sur 
quatre octaves, du DO-1 au SlI-4, sur 
les clés de FA et de SOL. On ne 
peut intervenir ni sur le timbre ni sur 
le volume. 


MUSIC permet d'entrer un air en 
mémoire note par note et mesure 
par mesure, d'afficher la partition à 
l'écran au fur et à mesure, d’effec- 
tuer des modifications, de supprimer 
ou d'intercaler des mesures, de re- 
produire des refrains sans en entrer à 
nouveau chaque note, d'examiner la 
partition mesure par mesure, de 
jouer l'air intégralement, par fraction 
ou par mesure, de modifier le tempo, 
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de sauver un air sur disquette et de 
modifier ou compléter un air déjà en- 
registré. 


MUSIC peut être utilisé simplement 
pour jouer ou déchiffrer une parti- 
tion. Il code chaque note ou silence 
sur 10 octets et peut interpréter des 
airs de 870 notes. Sous cette forme, 
les airs de musique sont affichables, 
exécutables, modifiables. 


Il peut également servir à créer des 
séquences musicales destinées à ani- 
mer d’autres programmes. Les airs 
sont alors compactables pour cette 
application et chaque note n'est plus 
codée que sur 5 octets, avec pour 
conséquence de supprimer les possi- 
bilités de modification et d'affichage 
(la présentation de la disquette 
donne des explications détaillées 
pour cette utilisation). 


MUSIC 


Joël Delannoy 


Mode d'emploi 


Chaque note ou silence demande 4 
à 6 paramètres pour sa définition : 


e Not: DRMFSLZ O, respecti- 
vement pour DO, RE, MI, FA, 
SOL, LA, SI et SILENCE. 


e Altération: B D ESPACE, pour 
Bémol, Dièse et Bécarre. 


e Octave : un chiffre de 1 à 4. 
e Durée: KCNBR, pour double- 
croche, croche, noire, blanche et 


ronde. 


e Point : POINT ou ESPACE, selon 
que la note est pointée ou non. 


e Liaison: S (aux notes suivantes), 


PRE 
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P (aux notes précédentes), 2 (les 
deux). 


Les notes ou silences sont entrés 
sous le format NAODPL, soit Note- 
Altération-Octave-Durée-Point-Liaison. 
Exemples : 


Mi-3 ; bémol ; blanche : pointée : liée 
suivante : MB3B.S 


Demi-pause : 0 B 


Si, au lieu de taper une note, on 
tape : 


X : on retourne au menu 


/: on annule la dernière note entrée 
(on ne peut annuler plusieurs notes 
que si elles ont la même durée, mais 
le programme ne le contrôle pas, ce 
qui impose une certaine auto-disci- 
pline ou à défaut la destruction de la 
mesure dont la durée ne sera plus 
bonne). 


I n'y à pas d’armure à la clé et l’alté- 
ration doit donc être précisée à cha- 
que note. 


La machine n'affiche pas les dièses 
mais les convertit en bémols, par 
exemple RE dièse en MI bémol, soit 
exactement le même son. 





L'écran fournit un certain nombre 
d'indications : 


TE : tempo des mesures à venir 


TI: tempo le plus bas dans le mor- 
ceau 


TA : tempo le plus haut 
RY : rythme (2, 3 ou 4 temps) 


NT : nombre de temps déjà occupés 
dans la mesure en cours de création. 


Pour information, le message ME- 
SURE INCOMPLETABLE ANNU- 
LEE concerne une mesure qui ne 
pourrait être complétée que par une 
triple-croche (non disponible). 


Catalogue des 
programmes 


e BONJOUR MUSIC : programme 
de salutation qui fixe le début du 
programme Basic en $6200 et 
lance l'exécution. 


e MUSIC: programme principal en 
Basic. 


e PRGMA: programme générateur 
de sons en assembleur. 


e PRGMAK: programme similaire 
destiné à jouer les morceaux 
compactés. 


e PGRMA-K-RELOCATOR : reloge 
PGRMA-K au gré de l'utilisateur. 


e AFF.MES : programme en assem- 
bleur d'affichage de la partition. 


e NOTSHAPES : tableau de formes. 
e — O Y&& : générique musical. 


e Des airs codés sur 10 octets, ter- 
minés par un &, et qui se char- 


gent en $4000. 


e Des airs compactés sur 5 octets 
avec adresse de début et lon- 
gueur, ils sont relogeables sans 
problème pour être joués par 
PGRMAK. 


NDLR — Comme pour le H-Basic, 
l’auteur touchera 10% des ventes du 
programme à titre de droits d'auteur. 
Pour toute diffusion en collaboration 
avec des éditeurs étrangers, l'auteur 
touchera 50% du résultat net. Dans 
le numéro 11, nous vous propose- 
rons probablement le D-DOS, un lo- 
giciel comportant plein d'utilitaires 
pour le DOS et vous permettant d'en 
écrire facilement. 





LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


FN 


poseuse. 





NOTRE RÉFÉRENCE... LA REVUE POM'S 





TRANSMETTEZ-NOUS VOS TEXTES 


PAR TÉLÉPHONE 
ou 


DONNEZ-NOUS VOTRE DISQUETTE 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 


COMPO 21865 


TRANSMISSION DE DONNEES 





(3 et 15. avenue du Peht Parc 


AIEL € LANIPENAI 
TRAITEMENT DE rexres 94300 VINCENNES 
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Tous les prix indiqués dans cette ru- 
brique sont des prix TTC en francs 
français, sauf indication contraire. 
Ces prix sont indicatifs : il est possi- 
ble que certains aient évolué entre le 
moment de la rédaction de la revue 
et le moment où elle vous parvient. 


Imprimantes 


Le marché des imprimantes pour 
micro-ordinateurs à usage personnel 
accueille un nouveau concurrent : 
Mannesmann Tally, entreprise déjà 
très connue pour ses imprimantes 
haut de gamme. Son dernier mo- 
dèle, la Spirit 80 (80 colonnes, 80 
caractères par seconde) attire immé- 
diatement l'oeil par sa ligne très réus- 
sie. Ce n'est heureusement pas sa 
seule qualité. La Spirit 80 dispose de 
possibilités graphiques et de jeux de 
caractères similaires à ceux de l’Ep- 
son MX80, avec des codes de 
contrôle comparables, ce qui facilite 
les problèmes d'interfaçage avec les 
logiciels existants. Mais le plus remar- 
quable concerne sa tête d'impression 
qui utilise des aiguilles de section car- 
rée et non plus circulaire comme sur 
les autres machines. Cela permet une 
définition améliorée des caractères. 
Un trait reste un trait et non plus une 
succession de points, si rapprochés 
soient-ils. La qualité d'impression est 
également améliorée par l’utilisation 
d'un ruban plastique qui offre une 
excellente homogénéité de l'impres- 
sion (mais peut-être au détriment de 
la durée de vie du ruban). Dernier 
atout, son prix: 3500 F seule ou 
4500 F avec interface graphique. 
Chez Micropériph. 


Une marque d'imprimantes alleman- 
des, Robotron, est maintenant impor- 
tée par C.DATA. Deux modèles à ai- 
guilles dans la série 6310, avec trois 
largeurs de caractères (10, 12,5 et 15 
cpi) extensibles en double largeur, 
offrent 100 cps en version 80 colon- 
nes (3250 F HT) ou 132 colonnes 
(4250 F HT). Le modèle à margue- 
DE pour 40 cps, se vend 9.950 F 


En ce qui concerne les imprimantes 
couleur, notons tout d'abord la 
GP700 de Seikosha présentée au 
dernier SICOB et disponible chez la 
plupart des revendeurs (environ 
5500 F). ESP, pour sa part, nous 
propose une approche originale, en 
prenant le problème à l'envers: il 
transforme une imprimante normale 
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Micro-informations 


(l'Epson MX80 pour ne pas la nom- 
mer) en une imprimante couleur. Le 
kit proposé inclut quatre rubans cou- 
leur (noir, rouge, jaune, bleu et vert) 
ainsi qu'un logiciel et permet l'im- 
pression en couleur de l'écran gra- 
phique. Pas de modifications sur 
l'imprimante (en dehors du ruban) ni 
sur l'interface. Et un prix raisonnable, 
même au cours actuel : $70. 


Autre nouveauté, l'interface impri- 
mante PRINT-IT de TextPrint qui 
permet d'imprimer par l'action sur un 
bouton la page texte ou haute réso- 
lution, ceci quelque soit le pro- 
gramme en mémoire. Bien entendu, 
une fois l'impression terminée, le 
programme reprend son exécution 
comme si rien ne s'était passé. C'est 
une méthode très intéressante pour 
sortir les écrans des disquettes proté- 
gées par exemple. L'interface sup- 
porte les imprimantes classiques : 
Epson, Nec, Apple, Oki ainsi que les 
imprimantes couleur IDS et Transtar. 
Prix à l'unité : $300. 


Apple Computer vient de lancer un 
traceur (table traçante) couleur 
(Apple Plotter Model 410) compati- 
ble avec Business Graphics. Les 
crayons de couleur (jusqu'à 4 en 
même temps) peuvent être changés 
en cours d'opération afin d'obtenir 
une grande variété de couleurs. La 
surface utile est de 28 X 43 cm. Le 
traceur se connecte directement à 
l'Apple //! ou, dans le cas de l'Apple 
Il ou//e, à une carte série. Prix: 


$8865 F HT. 


Si le prix vous fait hésiter, pourquoi 
ne pas regarder du côté du traceur 
MCP 40 ? Quatre crayons couleur in- 
terchangeables, mais le tracé s'effec- 
tue sur un rouleau de papier ordi- 
naire de 11,5 cm de large (dont 9,6 
utilisables). Des performances hono- 
rables : 12 caractères par seconde en 
mode texte, 5 à 7 cm/s en graphi- 
que, interface parallèle Centronics et 
un prix tout petit (à la mesure de 
l'encombrement de l'appareil) : 2295 
F. Disponible chez Sivéa. A noter 
que la même mécanique est 
commercialisée également sous le 
nom BFM 10. 


Ecrans sensibles 


Le battage publicitaire autour de la 
‘souris” semble en faire le ’nec plus 
ultra” en ce qui concerne la commu- 


ESIFRERÉERANES TIENNE R 
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nication  homme-ordinateur. C'est 
oublier un peu vite deux autres pos- 
sibilités également intéressantes: le 
crayon lumineux et l'écran sensitif. 
Premier système mis sur le marché, 
le crayon lumineux n'a pas eu le dé- 
veloppement escompté malgré des 
possibilités valables. Quelques modè- 
les sont disponibles sur Apple, mais 
rares sont les programmes qui l'utili- 
sent (au contraire de l'ordinateur 
TO7 de Thomson qui propose un tel 
équipement en standard). 


Le concept d'écran sensitif a été dé- 
veloppé par Control Data pour son 
système d'enseignement assisté par 
ordinateur Plato (maintenant disponi- 
ble sur Apple, mais sans écran sensi- 
tif!}. Quoi de plus naturel en effet 
que de pointer du doigt la 
commande nécessaire au bas de 
l'écran ou dans le menu ? Le nouvel 
ordinateur de Hewlett-Packard, le 
HP150, dispose en option de base 
de telles facilités. Sur Apple, CTA 
propose une carte et un écran s'ap- 
pliquant sur tout moniteur 12 
pouces. La technique utilisée met en 
jeu des faisceaux infrarouges qui, 
lorsqu'ils sont interrompus (par le 
doigt ou tout autre objet), permettent 
d'en déduire les coordonnées X,Y du 
point. Le CTA 500X offre une réso- 
lution de 96 X 64 points. Les coor- 
données de la surface pointée sont 
mises à jour continuellement et sont 
accessibles par le Basic Applesoft (et 
les programmes en langage ma- 
chine). Prix USA : $695, 


Cartes 


Avis aux fanatiques du 68000 (et de 
l'Apple) ! Vous pouvez trouver la 
carte Aristocard 68000 de Simon 
Computers chez Micropériph. Ce 
n'est certes pas la seule carte 68000 
disponible sur Apple, ni la plus éla- 
borée, mais c'est d'une part la pre- 
mière que j'ai vue en France, d'autre 
part la moins chère. Le package in- 
clut la carte, une disquette contenant 
un macro-assembleur 68000 et le 
manuel de référence de Motorola (en 
anglais). Si malgré votre expérience 
sur Apple, l'anglais vous pose encore 
quelques problèmes, vous pouvez 
toujours acheter le manuel de réfé- 
rence publié en français par Thom- 
son Efcis qui fabrique le 68000 en 
seconde source. Ceci dit, cette carte 
doit être réservée pour un usage di- 
dactique : connaissance du 68000 et 
de ses instructions, avec éventuelle- 
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ment possibilité de développer un 
système plus complet à partir de la 
carte. En effet, l'Aristocard ne dis- 
pose d'aucun langage (excepté l'as- 
sembleur) ni de logiciels évolués. De 
même, aucun système d'exploitation 
n'est prévu pour utiliser les disquettes 
(il est vrai que 140K de mémoire de 
masse pour un microprocesseur qui 
peut adresser jusqu'à 16 méga-octets 
de mémoire centrale, ce n'est pas le 
Pérou..). Une carte intéressante, pas 
trop chère (4900 F), mais à réserver 
aux amateurs avertis. 


Ceux qui voudraient utiliser le 68000 
avec un environnement logiciel plus 
complet (Fortran, Basic, Pascal, 
Forth...) peuvent se reporter à la pu- 
blicité Alpha-Systèmes parue dans 
l'Ordinateur Individuel d'octobre 83. 


Enfin, à tout seigneur tout honneur, 
je finirai ce petit panorama des cartes 
68000 par ce qui semble en être la 
Rolls : la DTACK Grande de Digital 
Acoustics : microprocesseur 68000 à 
10 MHz, 1 méga-octet de mémoire, 
possibilité de travailler en multitâ- 
che A ce niveau-là, l'Apple n'est 
plus qu'un périphérique de la carte 
68000 ! Prix non communiqué, mais 
certainement non négligeable par 
rapport à celui du système Apple 
complet. 


Une carte dont nous ne vous avions 
pas encore parlé : la carte Micromos 
256K pour Apple Il et /e se 
comporte comme deux fois huit 
cartes langage. L'adressage peut se 
faire par bus-adresses (1 bloc parmi 
8) où par bus-données (1 bloc parmi 
16). Plusieurs logiciels d'émulation 
disque sont fournis avec la carte en 
standard. 


Enfin disponible en France chez BIP, 
la carte accélérateur à 3,58 MHz 
dont nous avions parlé dans le nu- 
méro 8. Prix public : 4514 F HT. BIP 
propose aussi la carte Ultraterm 80 
colonnes à 4230 F HT : de 80 colon- 
nes par 24 lignes à 160 colonnes par 
24 lignes, en passant par 80 colon- 
nes et 48 lignes. Cette carte fonc- 
tionne indifféremment sur Il Plus, //e 
ou //! 


La carte Outix est une création ré- 
cente commercialisée par Logma : 
elle est destinée à être insérée dans 
un Apple pour former avec lui un 
outil de développement pour micro- 
processeurs. 


Particulièrement commode pour tra- 
vailler avec les versions ‘’piggy back” 
des  microcalculateurs  monochip, 
grâce à sa sonde directement 
connectable, elle permet la program- 
mation en assembleur ou en hexadé- 


cimal, l'émulation et le debugging 
d'un microprocesseur prototype. 


Dès le début 84, vous pourrez ache- 
ter chez tous les revendeurs Apple la 
carte Apple-Tell fabriquée par Hello. 
Pour 5400 F HT, vous aurez une 
carte compatible Il Plus et //e qui 
joue les trois rôles suivants : fonction 
Minitel/Vidéotex complète, modem 
automatique multimode intégré (300, 
600 et 1200 bauds), et cohabitation 
transparente avec les fonctions. logi- 
ciels et matériels habituels de l'Apple. 


Périphériques 


Apple vient de sortir le moniteur //, à 
présent vendu en standard avec les 
systèmes promotion, et dont nous 
apprécions le dispositif d'inclinaison 
de l'écran. 


Avec quatre ou cinq cartes dans ses 
slots, l'Apple est toujours un ordina- 
teur, mais s'apparente également à la 
famille des radiateurs. Ce qui est très 
mauvais pour sa santé. Solution 
éprouvée : améliorer l'aération grâce 
à un ventilateur. Inconvénient ma- 
jeur: un ronronnement permanent 
qui met les nerfs à rude épreuve. 
Nouvelle solution : le ventilateur de 
PACT Electronics qui se révèle éton- 
nant au niveau sonore. Comme la 
plupart de ses bruvants congénères, 
il se place sur le côté gauche de l'Ap- 
ple sans aucun démontage et dispose 
d'un interrupteur lumineux sur sa 
face avant. Prix: 750 F chez Micro- 
périph. 


Logiciel 


À ce jour, le meilleur programme de 
jeu d'échecs sur Apple est Chess 7.0 
de Larry Atkin. Introduit au début de 
l'année, il présente des possibilités 
tout à fait étonnantes face aux pro- 
grammes précédents: possibilité de 
reprendre ses coups, de changer les 
pièces de place, de jouer en aveugle, 
de sauver la partie en cours sur dis- 
quette. Pour ne pas être en reste, 
Hayden Software présente Sargon 
Il, successeur du très connu et ap- 
précié Sargon Il. Jeu amélioré, coups 
plus rapides et possibilités nouvelles 
devraient en faire un best-seller. 


Dans les nouvelles versions de pro- 
grammes, citons également DB Mas- 
ter version IV qui replace Stoneware 
dans les premières places face à ses 
autres concurrents sur le marché 
français : CX Base, Omnis et dBase 
IL. 


Voici également un nouvelle vague 
de programmes de copie, catégorie 
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très prisée par les possesseurs d’Ap- 
ple. Locksmith 5.0, Back-it-up III et 
EDD (Essential Data Duplicator) de- 
vraient vous permettre de faire des 
backups de vos programmes origi- 
naux (et à seule fin de sauvegarde !). 


Pom's vient de recevoir le célèbre In- 
credible Jack, qui permet de faire si- 
multanément du traitement de texte, 
de la gestion de fichier et des calculs. 
Vendu $129 par Business Solutions, 
ce programme sera analysé pour 
vous dans le numéro de mars 84. 


Encore un programme de création 
graphique avec Charts Unlimited, qui 
propose 36 formes prédéfinies, 36 
symboles prédéfinis, réduction ou 
agrandissement d'objet, des droites 
en trait plein ou pointillés, une capa- 
cité d'édition de texte, la reproduc- 
tion d'objets à d’autres endroits. Le 
tout, compatible avec les impriman- 
tes Epson, IDS, Itoh, Apple, NEC et 
Anadex et les interfaces Parallèle et 
Super Série Apple (entre autres) 
pour $195 aux Etats-Unis. C’est un 
produit de Business Information Sys- 
tems. 


Logifiche Il, est un logiciel de gestion 
de fiches comportant de nombreuses 
possibilités de calcul, de traitement 
automatique et d'édition, ainsi que 
des possibilités de recherche multicri- 
tère poussées. En vente par CFNI à 
1200 F HT, c'est un programme que 
nous analyserons pour vous. 


Autre logiciel français, Epistole est un 
traitement de texte pour Apple II 
ou //e réalisé par Micro Assistance et 
compatible avec Visicalc, Magicalc et 
Multiplan. Il est vendu 2000 F HT, 
est compatible avec les cartes 80 co- 
lonnes, et permet l'exécution de mai- 
lings, la vision de textes préformatés 
et l’utilisation d'un glossaire, entre 
autres possibilités. 


Adde Marketing vient de sortir la ver- 
sion 7.0 de Décisionnel Graphique 
pour Apple. Voir notre banc d'essai. 


Le cours Basic d'André Finot est 
maintenant vendu avec un aide-mé- 
moire de 80 pages. Le cours s’ap- 
pelle maintenant ‘Léna 1”; le prix 
hélas a augmenté. Voir le banc d’es- 
sai publié dans le Pom's 7. 


Futurs produits Apple 


Les prochains mois verront l’appari- 
tion de deux nouveaux produits 
Apple. D'une part un nouveau sys- 
tème d'exploitation destiné à succé- 
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der au DOS 3.3 et nommé ProDos. 
Très proche du SOS (Sophisticated 
Operating System) utilisé sur 
Apple ///, il permettra notamment de 
s'affranchir de la limite de 140K de 
l'unité de disquette Apple. L'utilisa- 
tion de disques durs, actuellement 
basée sur des partitions en volumes 
de 140K, sera donc beaucoup plus 
aisée. De plus, la structure hiérarchi- 
que du ProDos (identique à celle du 
SOS) permet de mieux organiser sa 
mémoire de masse quand un grand 
nombre de fichiers y sont stockés. 
ProDos est actuellement réservé aux 
auteurs de logiciels, afin de leur per- 
mettre d'en tirer avantage dans leurs 
nouveaux produits. Il ne devrait être 
en vente ‘’publique” qu’au début de 
l'année 84. Il permettra d'utiliser un 
Profile sur Apple Il Plus et//e; les 
disquettes formatées en ProDos se li- 
ront indifféremment avec les Apple II 
Plus, //e ou ///. Les lecteurs de dis- 
quettes Unifile et Duofile de 850K 
ont été abandonnés pour l'Apple /// 
et //e, car trop chers ; on entend par- 
ler de nouveaux lecteurs de disquet- 
tes 800K début 84 : c'est logique, car 
avoir le ProDos pour se limiter à 
140K ne serait pas très malin... 


Janvier 84 devrait également voir ap- 
paraître le nouvel ordinateur Apple 
Macintosh, sur lequel on ne dispose 
encore que de peu d'informations, si 
ce n'est qu'il utilisera comme Lisa un 
microprocesseur 68000. Le prix de- 
vrait être inférieur à 20000 F HT. 


Apple ne reste pas non plus inactif 
dans le domaine de la lutte contre les 
copies de son matériel. Un procès est 
actuellement intenté aux Etats-Unis 
contre Franklin Computer Corp. qui 
fabrique le très connu Franklin Ace, 
“compatible” Apple Il. Malheureuse- 
ment pour eux, le Franklin Ace utilise 
une ROM moniteur identique à celle 
de l'Apple (évident, mon cher Wat- 
son! Pour être compatible...). Le 
premier jugement rendu déboutait 
Apple de sa demande, le juge esti- 
mant que le contenu d’une ROM ne 
pouvait pas être copyrighté. En 
appel, la décision était annulée et le 
cas renvoyé devant le premier juge 
pour une étude plus approfondie du 
problème. Jugement final dans les 
mois à venir... 


Quoiqu'il en soit, Franklin Computer 
Corp essaie de diversifier ses pro- 
duits, puisqu'elle annonce la sortie 
prochaine d'un modèle portable 
compatible IBM (mais qui permettra 
l’utilisation du DOS Apple et du 
CP/M). 


Certains constructeurs de ‘’compati- 
bles” ont semble-t-il trouvé la parade 
en commercialisant des copies non 
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équipées de PROM. L'utilisateur 
devra en faire des copies ou se les 
procurer à ses propres risques. D'où 
une floraison de publicités pour de 
tels ordinateurs avec les mentions 
"No more copyright problems” ou 
même ‘Legal copy”!!! 


Divers 


Sivéa, distributeur Apple très connu, 
publie son catalogue 83/84, avec 80 
pages dont 25 consacrées à l'Apple 
(matériels, périphériques et logiciels) 
et une liste de prix. Le tout pour 15 
F remboursables au premier achat de 
plus de 150 F. 


Finlord est une société spécialisée 
dans la location de petits matériels 
informatiques (Apple, Commodore, 
Sharp...). Contrats de 6 mois à 5 
ans. 


AE TUE on mn 


vs 


À: 


A 


TETTEL EE 7 


5 


J'ai trouvé 
le BUG ! 


Software Publishing publie 4 fois par 
an PFS:News, brochure dédiée aux 
produits de la famille PFS. Contenu : 
information sur les nouveaux pro- 
duits, amélioration du PFS, conseils 
d'utilisation, etc. 


Avant d'acheter un nouveau logiciel, 
n'oubliez pas de consulter la rubrique 
Fastalk dans Softalk (mensuel améri- 
cain disponible chez Sivéa). Elle dé- 
crit brièvement les meilleurs logiciels 
dans chaque domaine et vous per- 
met ainsi de vous faire une idée des 
principaux logiciels du marché. 


A noter dans le dernier numéro de 
Peelings (volume 4 numéro 6, chez 
Sivéa) une comparaison approfondie 
de 18 logiciels de traitement de texte. 
Un grand nombre de critères ont été 


chiffrés pour aboutir à un classement 
par point. Egalement dans le même 
numéro, une revue de cinq grands 
serveurs américains de banques de 
données, dont The Source et Com- 
puserve. 


Softdisk est un magazine sur dis- 
quette qui inclut informations, pro- 
grammes, publicités, jeux, démons- 
trations de programmes  com- 
merciaux.. Deux disquettes double 
face sont éditées chaque mois. L'es- 
sai pour un mois coute $10. L'abon- 
nement à l'année $55. 


JCR lance des micro-boutiques JCR 
dans des magasins de Hi-Fi Vidéo : 
voilà une idée originale de franchise 
partielle qui devrait encore augmen- 
ter le nombre d'endroits où l'on 
pourra trouver Pom's.. En ce qui 
concerne les boutiques, sachez aussi 
que l'on peut maintenant trouver les 
disquettes de Pom's à la Librairie 
d'Aujourd'hui. 
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Business Information Systems - 
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CFNI - 115 Bureaux de la Colline 
de St. Cloud - 92213 Saint Cloud - 
Tél 602.41.41 


CTA - Computer Technology Asso- 
ciates - 1704 Moon NE - Albuquer- 
que NM 87112 - USA 


Digital Acoustics - 1415 
E.McFadden, Suite F - Santa Anna 
CA 92705 - USA 


ESP - Enhanced Software Products - 
P.O Box 178 - Wantagh NY 11793 - 
USA 


Finlord - 15 Bd Saint Germain - 
75005 Paris - Tél 634.21.84 


Finot (André) - 8 allée Buffon - 
91000 Evry Courcouronnes - Tél (6) 
077.23.35 


Hello - 1 rue de Metz - 75010 Paris 
- Tél 523.30.34 


Librairie d'Aujourd'hui - 253 rue 


Lecourbe - 75015 Paris - Tél 
528.72.88 
Logma - 12 rue d'Anjou - 78000 
Versailles 


Micro Assistance - 66 rue Casta- 
gnary-75015 Paris - Tél 530.05.28 


Micromos - Z.l. 
95301 Pontoise - 


Rue Ampère - 
Tél (3) 032.37.78 





et 032.16.71 


Micropériph - 62, rue Ducouédic - 
75014 Paris - Tél 321.53.16 


Sivéa - 33 Bd des Batignolles - 
75008 Paris - Tél 522.70.66 


Softdisk - 3811 Saint Vincent, De- 
partment S9 - Shreveport LA 71108 
- USA 


Software Publishing - 2674 North 
First Street. Suite 210 - San Jose CA 
95134-USA 


TextPrint - 8 Blanchard Road - 
Burlington MA 01803 - USA 





Un bug Applewriter //e 


AW le offre la possibilité intéressante 
d'autoriser avec “CTREL-S =” la sau- 
vegarde du fichier sous le nom appa- 
raissant sur la ligne supérieure après 
"Fich:”. Le signe ”’=” évite de devoir 
entrer le nom du fichier. J'ai égaré 


des fichiers à cause de cette facilité, 
et ce de la façon suivante : j'avais 
par exemple ‘Courrier,d2” comme 
nom de fichier actif : j'ai fait "CTRL- 
O AD1” à un moment donné pour 
me renseigner sur le catalogue d'une 
disquette dans le drive 1. Puis, 
quand j'ai sauvegardé avec ”’CTRL-S 
=”, AW jle, bien qu'affichant ‘Fich: 
Courrier, d2”, a sauvegardé sur le 


drive 1. Sur le coup, je ne m'en étais. 
pas aperçu et je fus très surpris, en 
rechargeant ultérieurement ce fichier. 
que je croyais avoir modifié, de le re- 
trouver dans son état initial. Conclu- 
sion : la sauvegarde par =” ignore 
les compléments de nom tels que 


Hervé Thiriez 





Bibliographie 


Alexandre Duback 


Initiation à Visicalc, de Christian 
Baudry, Masson - 152 pages - 80 
francs. 


Il s’agit là beaucoup plus d'un mode 
d'emploi que d’un livre d'initiation : 
en effet, aucun exemple autre qu'élé- 
mentaire n’est présenté; en outre, on 
n'y trouve pratiquement pas les trucs 
d'utilisation qui permettent justement 
d'exploiter au mieux le tableur. Le 
format DIF est totalement ignoré. 
ai dit, le livre est clair et facile à 
ire. 


Magicalc Tutorial de Christian 
Dubois, Mnémodyne - 385 pages. 


Malgré son titre foncièrement anglo- 
phone, cet ouvrage est en français: il 
comporte deux parties : l’apprentis- 
sage puis les exemples, au nombre 
de dix. Rien à dire, l'ouvrage semble 
bien atteindre son objectif. Nous le 
conseillons aux acheteurs de Magi- 
calc. 


Multiplan sur Apple, de Philippe 
Bonnet et Manh T. Dinh, Edimicro - 
200 pages - 85 francs. 


C'est le premier livre sur la version 
française de Multiplan. Il apporte les 
moyens d’un bon apprentissage de 
base avec de nombreux exemples 
d'application. On pourra regretter 
qu'il présente seulement une utilisa- 
tion de base de Muitiplan, sans en 
profiter pour donner des trucs de 
fonctionnement : il ignore par exem- 
ple l’avantage que l’on a souvent à 
délimiter une zone en englobant les 
cellules visées, plutôt que de la pre- 
mière à la dernière cellule. 


20 progiciels-outils pour Apple 
Il, de Jean-Louis Marx et Alain Thi- 
bault, Editions du PSI - 248 pages - 
122 francs. 


Il s’agit de vingt bancs d'essai : deux 
tableurs, quatre traitements de texte, 
huit programmes de gestion de fi- 
chiers et six ‘’divers”. Le travail est 
bien fait, mais on préfèrerait presque 


avoir des analyses plus approfondies 
encore, quitte à ce que cela corres- 
ponde à un nombre de programmes 
plus restreint. Une bonne idée : cha- 
que analyse se termine par un ta- 
bleau d'évaluation multicritère à 
compléter par le lecteur. 


Pascal for the Apple,de lain Mac- 
Callum, Prentice Hall - 66 Wood 
Lane End, Hemel Hempstead, Herts, 
HP2 4RG, Royaume Uni-495 pages 
et une disquette - $27,95. 


Nous vous parlons de ce livre avec 
disquette de façon enthousiaste, bien 
qu'il soit en anglais, car il s’agit d’un 
excellent cours de Pascal avec des 
travaux pratiques facilités par la dis- 
quette d'accompagnement. Selon 
l’auteur, il faut compter 80 heures 
sur l'Apple et 80 heures en lecture 
seule pour digérer cet ouvrage dense 
et complet. Nous n'avons pas eu le 
temps de le faire mais, vu ce que 
nous avons lu en diagonale, nous 
pensons que le but a toutes les chan- 
ces d’être atteint. 
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Je tiens à vous informer d'un bug 
dans Applewriter //e et d'une mé- 
thode pour le contourner qui sera 
utile, je pense, à de nombreux lec- 
teurs. En effet, AW /’e ne prend pas 
en compte le caractère CTRL-(& qui 
correspond au code ASCII O et per- 
met, entre autres, ‘d'envoyer des 
commandes à l'imprimante. Pour 
l'Epson., en particulier. il annule le 
soulignement ou l'écriture d'expo- 
sants. La solution est la suivante : 


e avec la carte 80 colonnes éten- 
due : 

] BLOAD OBJ.APWRT2F.A$2300 
] CALL —151 

* 2782:7F 

* 4A34:7F 

* 3D0G 

] BSAVE OBJAPWRT2F.A$2300. 
L$30D1 

® autrement : 

]BLOAD OBJAPWRT2E.A$2300 
] CALL —-151 

* 26E2:7F 

+ 48BB:7F 

* 3D0G 

] BSAVE OBJ.APWRT2E.A$2300. 
L$2F58 


Avec ces modifications, on peut in- 
corporer CTRL-(&@ dans un texte ou 
dans un glossaire et bénéficier ainsi 
de toutes les possibilités de l'impri- 
mante. 


Gérard Rigaud - 125 chemin des 
Jonquilles - 13013 Marseille 


Nous vous remercions de ce rensei- 
gnement et encourageons les lecteurs 
qui auraient des informations de 
même nature à nous les faire parve- 
nir, afin que tous bénéficient de leur 
expérience. 





Le petit programme bien utile que je 
vous propose ci-dessous ajoute une 
instruction au DOS, l'instruction 
TDUMP, qui réalise le dump sur 
écran ou imprimante de tout fichier 
séquentiel, TEXT ou EXEC. La syn- 
faxe est tout simplement ‘TDUMP 
nomfic [Si] [,Dj] [.Vk]" où ‘nomfic” 
est le nom du fichier et où les cro- 
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Courrier des lecteurs 


chets indiquent des paramètres facul- 
tatifs. 


La touche CTRL-Q interrompt défini- 
tivement la liste. Toute autre touche 
joue le rôle d'un interrupteur 
{(arréêt‘marche). 


10 REM DUMP FICHIER 


TEXTE 

11 REM COMMANDE REMP 
LACE CHAIN 

12 REM SYNTAXE: TDUM 
P FICHIER 

100 HEXS = ‘’A893:54 4 


4 55 4D DO N 3 
D26:DE BC N BC 
DF:20 8E FD 20 
A3 A2 20 8C A 
6 FO 12 20 ED 
FD AD O CO 10 
F3 8D 10 CO 20 
1B FD C9 91 D 
O E9 20 FC A2 
60 N D7D2G" 


110 FOR I = 1 TO LE 
N CHEXS): POKE 

911 + I, ASC 

C MIDS CHEXS, I 

»1)) + 128: NE 

XT : POKE 72,0 

: CALL - 144 


Yvan Koenig - Rue du Stade 


06220 Vallauris 


< 1 > J'ai appris l'assembleur en 
autodidacte. Dans ma progression. 
j'en arrive au DOS. Je pense savoir 
mettre en oeuvre la routine RWTS 
(manuel DOS, page 89). A titre 
d'exercice, je voulais modifier le nu- 
méro de volume d'une disquette. Ce 
numéro se trouve dans la VTOC. 
piste $11, secteur $00,. octet $06 
(page 125). Il faut donc lire ce sec- 
teur, le modifier, puis le réécrire. 


J'ai suivi les consignes page 91. En 
lecture, tout va bien, la zone $2000- 
20FF qui sert de buffer reçoit bien la 
VTOC. En écriture, la fin des opéra- 
tions se solde par un bip ! La consul- 
tation de la table IOB nous donne la 
valeur $20 dans IBSTAT: Volume 
Mismatch. Néanmoins, une nouvelle 
consultation de la VTOC prouve que 
l'octet du numéro de volume à bien 
été modifié. Mais une commande 


Tri. 
ras HER 


ax Em 
Fete 


Olivier Herz 


CATALOG donne l'ancien numéro. 
même après coupure du secteur. Où 
le DOS va-t-il chercher cette informa- 
tion ? 


< 2 > Après plusieurs tentatives in- 
fructueuses en assembleur. je me de- 
mande comment on peut s v prendre 
pour tracer un cercle vite fait. Avez- 
vous la réponse ? 


< 3 > Voici aussi quelques trucs 
pour les lecteurs de Pom's 


Si on tape CTRL-J dans une REM. 
on passe à la ligne suivante. On peut 
séparer des routines très clairement 
sans ajouter des lignes numérotées 
comportant des ‘ou autres REMs. 
On peut bien sûr insérer un 
commentaire entre deux séries de 
CTRL-J. Tout cela marche aussi sur 
imprimante. 


On peut avoir des commentaires en 
minuscules sur une Seikosha GP100. 
Il suffit d'encadrer les commentaires 
de CTRL-Z (tant en Basic qu'en 
Toolkit). Les commandes CTRL-O 
et CTRL-N sont aussi reconnues. 


Erick Ringot - 62/71 rue Jean Bart - 
59290 Wasquehal 


< 1 > Le DISK VOLUME: si l'on 
s'en tient aux secteurs tels qu'on 
peut les lire avec RWTS, le problème 
semble effectivement incompréhensi- 
ble. Mais la “bible” en matière de 
DOS Île célèbre BENEATH APPLE 
DOS) montre que le numéro de vo- 
lume apparaît physiquement sur la 
disquette. On le trouve en effet dans 
le champ d'adresses de chaque sec- 
teur de chaque piste de la disquette. 
Ce champ d'adresses, qui est à op- 
poser au champ de données dont le 
décodage par RWTS fournit les 256 
octets bien connus, contient entre 
autres les numéros de secteur, piste 
et volume ainsi que le “checksum” 
du secteur. Ceci explique pourquoi il 
est impossible de changer le numéro 
d'une disquette avec le DOS autre- 
ment qu'en la ré-initialisant, le nu- 
méro de volume dans le VTOC ne 
servant qu'à être lu par un utilisateur 
éventuel desirant le connaître. 


< 2 > Le tracé d’un cercle en haute 
résolution sur l'Apple à toujours été 
quelque chose d'assez long. Je vous 
propose néanmoins deux voies de 
recherche qui pourraient diviser le 
temps de tracé par deux, ou trois au 
maximum : 


RS 


— Tracer un polygone régulier, ayant 
suffisamment de côtés pour être 
confondu avec un cercle. Tout le 
problème consiste à faire coïncider 
les deux bouts (cf. le programme de 
démonstration de HAIFA dans le nu- 
méro 5 de Pom's). 


— Calculer au préalable les sinus et 
les stocker dans une table. 


< 3 > Merci pour vos trucs et astu- 
ces pour imprimante. 


Lorsque je fais tourner PFS ou PFS 


Report avec la carte Chat Mauve, je 
ne parviens plus à imprimer. Y a-t-il 
une autre solution que d'enlever la 
carte pour pouvoir imprimer (NDLR : 


l'appareil étant éteint, bien en- 
tendu) ? 
Bruno Piat - Centre Technique du 


Cuir - BP 7001 - 69342 Lyon Cedex 
07 


Nous savons que la carte Chat 
Mauve est incompatible en Pascal 
avec l'imprimante Epson accompa- 
gnée de sa carte graphique. Ce doit 
être le problème que vous avez ren- 
contré, puisque PFS est écrit en Pas- 
cal. Si vous avez une autre impri- 
mante, vous pouvez téléphoner au 
répondeur de Chat Mauve: (1) 
201.67.73. 


1 - Pouvez-vous m'indiquer la mé- 
thode qui permet de formater une 
disquette sans champ adresse mais 
en chargeant plus rapidement les 
programmes en utilisant des relations 
de temps entre chaque secteur ? 


2 - Quelles sont les raisons qui ont 
poussé  Ediciel à organiser un 
concours de déplantage de la dis- 
quette Naja, alors que la protection 
est super-minimale ? I] ne faut pas 
plus de quelques heures pour en 
faire un COPYA en modifiant quel- 
ques petites choses. 


J.-L. Lagrange - 150 rue du Mal 
Oudinot - 54000 Nancy 


1 - Je ne peux vous expliquer en 
quelques lignes la méthode pour ini- 
tialiser une disquette en permutant 
l'arrangement des secteurs, afin de 
charger plus rapidement les program- 
mes. Lisez pour cela Bag of Tricks et 
le numéro spécial de Call Apple : AI 
about DOS. 


2 - En ce qui concerne la disquette 
Naja, je pense que l'objectif était 
avant tout publicitaire. 


Nous venons de recevoir un 
Apple /’e. La notice n'est pas telle- 


ment explicite au sujet des 16K qui 
portent la mémoire à 64K. Pourriez- 
vous me dire : 


Où se trouvent les 16K ? 
Quelles adresses les déclenchent ? 


Comment on s'en sert dans un pro- 
gramme ? 


Où se trouve alors la HIMEM ? 


Jean-Claude Baron - Lieudit Courbet 
- Montaigu s/Save - 31530 Lévignac 


Voici quelques éclaircissements sur 
les 16K supplémentaires de l'Ap- 
ple //e, qui sont compatibles au point 
de vue soft avec les cartes 16K de 
l'Apple ]f. 


Carte de la mémoire : 


FFFF 


E000 


FF 
PE Bank 1 


(4K) 


Bank 2 
(4K) 


D000 


Comme les 4K $CO00-$CFFF sont 
réservés aux entrées-sorties, on ne 
peut adresser les 64K, mais seule- 
ment 60. On a donc 12K de RAM 
adressable supplémentaire ($D000 à 
$FFFF), en parallèle avec la ROM. 
Mais les constructeurs, voulant offrir 
16K, nombre plus parlant, ont fourni 
deux fois en parallèle les 4K $D000 
à $DFFF, zones appelées BANKI et 
BANK2. Pour savoir quel BANK le 
microprocesseur adressera et pour 
savoir si l’on adresse la RAM ou la 
ROM, ïl faut des adresses de 
contrôle. 


Adresses de contrôle : 


Pour pouvoir utiliser une adresse, il 
suffit d'y accéder, c'est-à-dire faire un 
PEEK ou POKE en Applesoft ou un 
LDA, STA, BIT, CMP, etc. en lan- 
gage machine. 


$CO080 (—-16256) sélectionne la RAM 
en lecture, le BANK2 et empêche 
l'écriture sur la RAM. 


$CO81 (—-16255) sélectionne la 
ROM en lecture, le BANK2 et per- 
met l'écriture sur la RAM si l'adresse 
est adressée deux fois. 


$CO82 (-16254) sélectionne la 
ROM en lecture, le BANK2 et empê- 
che l'écriture sur la RAM. 
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$C083 (—16253) sélectionne la RAM 
en lecture, le BANK2 et permet 
l'écriture sur la RAM si l'adresse est 
adressée deux fois. 


$C088 (—-16248) sélectionne la RAM 
en lecture, le BANKI et empêche 
l'écriture sur la RAM. 


$CO089 (—-16247) sélectionne la 
ROM en lecture, le BANKI et per- 
met l'écriture sur la RAM si l'adresse 
est adressée deux fois. 


$CO8A (—-16246) sélectionne la 
ROM en lecture, le BANKI et empé- 
che l'écriture sur la RAM. 


$CO8B (-—-16245) sélectionne la 
RAM en lecture, le BANKI et permet 
l'écriture sur la RAM si l'adresse est 
adressée deux fois. 


Comment s’en servir ? 


Depuis un programme Applesoft, on 
ne peut pas tellement utiliser ces 16K 
supplémentaires et la HIMEM reste 
celle d'un 48K. Toutefois, certains 
utilitaires permettent d'utiliser les pos- 
sibilités de ces 16K : des programmes 
qui, en mettant le DOS (mais pas ses 
buffers) sur ces 16K, permettent de 
monter la HIMEM à $B800 ; ou un 
utilitaire comme HAIFA (Pom's 5) 
dont une grande partie se charge sur 
ces 16K et qui, en abaissant la 
HIMEM à $8000 seulement, permet 
de doubler voire tripler la puissance 
de l’Applesoft. En bref, l’utilisation de 
ces 16K, à moins de servir de zone 
de stockage d'octets, reste le do- 
maine privilégié du programmeur en 
langage machine. 


Certains lecteurs, peu familiers avec 
l'assembleur, nous ont demandé 
comment mettre en oeuvre le patch 
de la Hard Copy Seïkosha indiqué 
page 36 dans le Pom's 9. 


Voici la séquence à suivre : 

] BLOAD SEIKO.OBJ,A$1800 
] CALL —151 

* 193F:90 

* 3D0G 

] BSAVE SEIKO.OBJ,A$1800, 
L$1DB 


Nous conseillons aux lecteurs qui ne 
savent pas trop comment entrer un 
programme en assembleur de lire 
l’article Notions de base” de Gérard 
Michel dans le Pom's 3. 


Je me permets de vous signaler trois 
erreurs dans la publication de mon 
article Editeur-compositeur de texte 
dans le numéro 9 de Pom's : 


Pom's n° 10 





Page 12, milieu de colonne 1, écrire : 
Supprimer les lignes 50, 350, 9500 
à 10000” au lieu de. 9500 et 
10000 ; 


Haut de page 13 : les jours de la se- 
maine sont imprimés sur la 6° co- 
lonne à cause du ]TS ; 


Page 16, les lignes 10 à 250 précè- 
dent évidemment les lignes 260 à 
370. 


Gérard Hisleur - 19 rue Edmond 
Rostand - 38320 Evbens 


Nous avons eu aussi une erreur de 
montage dans le Truc et Astuce page 
27 du N°9 : le programme a été 
oublié, ce qui n’était pas gênant pour 
les lecteurs abonnés aux disquettes 
qui étaient les premiers concernés ; 
en effet, ils l'ont trouvé sur la dis- 
quette. Enfin, le voici : 


#300. 31D 


0300- A2 17 8A 20 C1 FB A5 28 
0308- 85 FE 18 AS 29 69 5C 85 
0310- FF A0 27 Bi FE 91 28 88 
05i8- 10 F9 CA 10 ES 60 





Courrier des Clubs 


Prochaines réunions du club Ma 
Pomme 


— les jeux, par Michel Lavner : war- 
games, arcade, donjon, aventure, si- 
mulation… Le 18 janvier à 19 
heures, 110 avenue du Général Le- 
clerc - Paris (14) 


— les applications audiovisuelles, par 
Bernard Buel: pilotage de diapo- 
rama, vidéodisques interactifs, lasers, 
etc. Le 15 février à 19 heures, Mes- 
sage Audiovisuel, 60 rue Brancion - 
Paris (15). 


— les robots, le 21 mars à 19 heures, 
avenue du Général Leclerc. 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris. 
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Ci-joint mon règlement 


NOR 


pos 


e la disquette HAIFA Source! | au prix de 55 F la disquette (cf. Pom'’s n° 5) 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom’s n° 8) 
e le logiciel MUSIC [_] au prix de 80 F (cf. Pom’s n° 10) 


e recueil n° 1 de Pom'’s (n° 1 à 4) 
[ ] avec ses 3 disquettes au prix de 270 F 


[_] sans disquette au prix de 120 F 
[ ] les 3 disquettes seules au prix de 150 F 
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Je désire recevoir : 


e les numéros de la revue Pom’s | ]4 TK. O6 O7 [O8 
au prix de 35 F le numéro épuisé 


e les numéros de la revue Pom’s [ ]9 []10 
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Et. ‘LE . 8... ‘O5. .C6* ‘07 
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Os 9 [Oi10 
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[_] sans disquette au prix de 135 F 
[_] avec disquettes au prix de 325 F 
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